Visual Basic para Aplicaciones - problemas con el llenado de celdas

saben q tengo un problema genere una aplicacion con vba y excel , la cual va guardandio datos en celdas, pero cada vez q me salgo de la aplicacion, y la vuelvo a correr me pone los datos en la celda inicial.
lo q quiero es cada vez q corra la aplicacion empieze donde termino de llenar la celda la anterior vez q corri la aplicacion.el codigo es el sig.
With Hoja6
.Activate
.Cells(2 + fila, 1) = txtclave.Text
.Cells(2 + fila, 2) = txtrfe.Text
.Cells(2 + fila, 3) = txtrfc.Text
.Cells(2 + fila, 4) = txtcalifica.Text
.Cells(2 + fila, 5) = Now()
fila = fila + 1
End With

Hay que encontrar antes la primera fila vacia despues de los ultimos datos

Sub CeldaVacia()
MiHoja.Activate
Cells(1,MiColumna).Select
Range(Activecell,Activecell.End(XlDown)).Select
Fila=Selection.Count+1
End Sub

Ahora Fila toma el valor de la primera celda vacia

Saludos

Sub a()
For I = 1 To 65536
If Range("a" & I).Value = "" Then
Sheets("sheet1").Activate
Cells(2 + fila, 1) = txtclave.Text
Cells(2 + fila, 2) = txtrfe.Text
Cells(2 + fila, 3) = txtrfc.Text
Cells(2 + fila, 4) = txtcalifica.Text
Cells(2 + fila, 5) = Now()
fila = fila + 1
I = 65536
End If
Next I

End Sub

sNota: si necesita mas ayuda escribame a [email protected]
aca no nos queda nada grande////