Exportar de vb6 a excel poniendo datos en próxima fila

Hola, tengo este codigo que me exporta de vb6 a excel, es un command con dos textbox y lo que hace es exportar dichos datos a excel, el codigo que yo tengo me exporta a la celda A1 y B1, pero yo quisiera que al volver a presionar el command, se exporte a las celdas A2 y B2 y asi sucesivamente cada vez que presione las exporte a la siguiente celda en blanco

Private Sub Command1_Click()
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
ApExcel.Workbooks.Open "C:\libro1.xls"
ApExcel.cells(1, 1).Formula = text1.text ' en la celda a1
ApExcel.cells(1, 2).Formula = text2.text ' en la celda b1
Set ApExcel = Nothing
End Sub