Visual Basic - AYUDA EXPORTAR EXCEL (es facil)

Hola saben mi duda es como lograr que los datos que voy a ingresar vayan quedando guardados, pero al volver arrancar el programa los datos que nuevamente ingreso queden en el mismos LIBRO y la misma HOJA que ya contenia datos anteriormente.... este es el codigo que utilizo para mandar de VB6 a Excel... de antemano muchas gracias

Private Sub Command1_Click()
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True
ApExcel.Workbooks.Add
ApExcel.cells(1, 5).Formula = "Kirk 6.0"
ApExcel.cells(1, 5).Font.Size = 20
ApExcel.cells(2, 2).Formula = Text1.Text
ApExcel.cells(2, 3).Formula = "MOTOS"
ApExcel.cells(2, 4).Formula = "BICICLETAS"
ApExcel.cells(3, 2).Formula = 100
ApExcel.cells(3, 3).Formula = 200
ApExcel.cells(3, 4).Formula = "=B3-C3"
ApExcel.RANGE("B3:D3").BORDERS.Color = RGB(255, 0, 0)
Set ApExcel = Nothing
End Sub

Para eso tendrás que llamar al libro que creaste en vez de abrir uno nuevo.

lo recomendable es k guardes el docuemento .save o .autosave algo asi
tendras k realizar una funcion para leer la ultima posicion y despues empezar en esta ,esta facil