استبدل الكود بالكود التالى
Private Sub CommandButton11_Click()
Dim SH As Worksheet
dim x as long
Set SH = ThisWorkbook.Sheets("المدراء (2)")
x = SH.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
Workbooks.Application.Visible = True
Application.ScreenUpdating = False
SH.Cells(x, 2).Value = Me.textBox2.Value
SH.Cells(x, 3).Value = Me.textBox3.Value
SH.Cells(x, 4).Value = Me.textBox4.Value
SH.Cells(x, 5).Value = Me.textBox5.Value
SH.Cells(x, 6).Value = Me.textBox6.Value
SH.Cells(x, 7).Value = Me.textBox7.Value
SH.Cells(x, 8).Value = Me.textBox8.Value
SH.Cells(x, 9).Value = Me.textBox9.Value
SH.Cells(x, 10).Value = Me.textBox10.Value
SH.Cells(x, 11).Value = Me.textBox11.Value
SH.Cells(x, 12).Value = Me.textBox12.Value
SH.Cells(x, 13).Value = Me.textBox13.Value
SH.Cells(x, 14).Value = Me.textBox14.Value
SH.Cells(x, 15).Value = Me.textBox15.Value
SH.Cells(x, 16).Value = Me.textBox16.Value
SH.Cells(x, 17).Value = Me.textBox17.Value
Application.ScreenUpdating = True
End Sub
باذن الله سيعمل معك تمام