I am doing something similar to this, but I don't know if it will help
you or not. I'm collecting info in VBA text boxs and putting them at
the bottom of a list. The code is all in one "submit" button:

Private Sub btnSubmit_Click()
' define dims
Dim sData As String
Dim lRowNum As Long
sData = txtName.Text

' Put the data in the worksheet:
If Cells(1, 1).Value = "" Then
lRowNum = 1
Else
lRowNum = ActiveSheet.UsedRange.Rows.Count + 1
End If
Cells(lRowNum, 1).Value = sData

End Sub