فورم اضافة بيانات

Private Sub CommandButton6_Click()

Dim rng As Range
Set rng = ActiveSheet.ListObjects("novembre").Range
Dim lr As Long
lr = rng.Find(WHAT:="*", AFTER:=rng.Cells(1), lookat:=xlPart, LookIn:=xlFormulas, searchorder:=xlByRows, searchdirection:=xlPrevious, MatchCase:=False).Row

Cells(lr + 1, 17).Value = TextBox34.Value
Cells(lr + 1, 18).Value = TextBox35.Value
Cells(lr + 1, 21).Value = TextBox36.Value
Cells(lr + 1, 22).Value = TextBox37.Value
Cells(lr + 1, 23).Value = TextBox38.Value
Cells(lr + 1, 24).Value = TextBox39.Value
Cells(lr + 1, 25).Value = TextBox40.Value

TextBox34.Value = ""
TextBox35.Value = ""
TextBox36.Value = ""
TextBox37.Value = ""
TextBox38.Value = ""
TextBox39.Value = ""
TextBox40.Value = ""

MsgBox "تَمَّ تَرْحِيلُ البَيَانَتِ بِنَجَاحٍ"

TextBox34.SetFocus
End Sub