this is the code
Private Sub closeButton_Click()
Unload Me
End Sub
Private Sub cmdButton_Click()
Dim lRow As Long
Dim lAct As Long
Dim ws As Worksheet
Set ws = Worksheets("RfiDatas")
'find first empty row in database
lRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row...