سلام علي بهتر اين است اطلاعات جدید را همیشه در سطر آخر جدول داده ها تون ذخیره کنید و زمانی که قصد دارید اطلاعات یک کارمند را حذف کنید به جای پاک کردن محتوای سطر به طور کامل سطر را حذف کنید. برای اینکار میتوانید از کد ذیل استفاده کنید

Range(“A4:F4”).Delete xlUp

این کد سلول های A4:F4 را حذف و تمامی سطرهای زیر یک ردیف بالا می آیند

سلام بزرگوار ممنون از راهنمایی تون  این هم فکر خوبیه  با همه این تفاسیر چون مسئله مطرح شده توی سوال واقعا ذهنم رو درگیر کرده بود خواستم کدی برای اون تعریف کنم لطفاً راهنمایی کنید

وقتی موفق شدین سطر خالی را پیدا کنید ورد اطلاعات راحت تر است لطفا کد مربوط به آن قسمت را ارسال کنید تا با توجه به آن راهنمایی شود

سلام مجدد

برای درج اطلاعات یوزرفرم در ردیف خالی از کدی همانند کد ذیل استفاده کنید

Sub Save_Data()
Dim Row_num As Double
‘پیدا کردن ردیف خالی
Range(“a1”).End(xlDown).Offset(1, 0).Select
‘دریافت شماره ردیف
Row_num = Selection.Row
‘درج اطلاعات در ردیف خالی
Cells(Row_num, 1) = TextBox_1.Text
Cells(Row_num, 2) = TextBox_2.Text
Cells(Row_num, 3) = TextBox_3.Text
Cells(Row_num, 4) = TextBox_4.Text
Cells(Row_num, 5) = TextBox_5.Text
Cells(Row_num, 6) = TextBox_6.Text
End Sub