Private Sub CommandButton1_Click()
Dim DLl&, ii&
DLl = ActiveSheet.[A65536].End(xlUp).Offset(1).Row
For ii = 1 To 3
ActiveSheet.Cells(DLl, ii) = Me.Controls("TextBox" & ii)
Next
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim DL As Long, i As Long
DL = ActiveSheet.[A65536].End(xlUp).Offset(1).Row
MsgBox DL
For i = 1 To 3
Me.Controls("TextBox" & i) = ActiveSheet.Cells(DL - 1, i)
Next
End Sub