Incrementare la row cellulare in excel

Ho un UserForm che metterà i dati dai campi alle colonne A, B e C, ma ho bisogno che si passi verso il basso e compila la row vuota successiva each volta che un utente esegue la presentazione.

Questo è quello che ho finora, non so cosa posso fare per farlo così sarebbe passato da A2 / B2 / C2 a A3 / B3 / C3 ecc.

Private Sub Submit_Click() Dim LastRow As Object Set LastRow = Sheet1.Range("a65536").End(xlUp) Sheet1.Range("A2").Value = MatchNum.Text Sheet1.Range("B2").Value = TeamNum.Text Sheet1.Range("C2").Value = AllianceTeamNum.Text MsgBox "One record written to Sheet1" End Sub 

Sono un principiante completo a Visual Basic (circa 1 ora di esperienza) e sarebbe bello se la soluzione fosse il più semplice ansible. Qualsiasi aiuto sarebbe molto apprezzato!

Prova il seguente codice:

 Private Sub Submit_Click() With Sheet1 .Select Dim LastRow As Long LastRow = .Range("A65536").End(xlUp).Row + 1 .Range("A" & LastRow).Value = MatchNum.Text .Range("B" & LastRow).Value = TeamNum.Text .Range("C" & LastRow).Value = AllianceTeamNum.Text End With MsgBox "One record written to Sheet1" End Sub 

Prova questo:

 Dim start As Integer Private Sub CommandButton1_Click() Dim LastRow As Object Set LastRow = Sheet1.Range("a65536").End(xlUp) Sheet1.Range("A" & start).Value = "a" Sheet1.Range("B" & start).Value = "b" Sheet1.Range("C" & start).Value = "c" MsgBox "One record written to Sheet1" start = start + 1 End Sub Private Sub UserForm_Initialize() start = 2 End Sub