Få denne til at skrive i næste tomme linje

Jeg har denne: Private Sub CommandButton2_Click()
ActiveWorkbook.Sheets("report").Activate

Cells(1, 2) = Me.TextBox9'date
Cells(2, 2) = Me.TextBox10'subject
Cells(3, 2) = Me.TextBox8'remarks
Cells(1, 1) = "Date"
Cells(2, 1) = "Subject"
Cells(3, 1) = "Remarks"
End Sub

Jeg prøver at få den til at skrive i næste tomme linje, så det der blev gemt "sidste" gang står øverst, og næste gang der bliver skrevet noget gemmes det med den nye dato, ved klik på comandbutton 2