Visual Basic para Aplicaciones - urgente: rellenar la primera celda vacia

vamos a ver este es el codigo q tengo escrito de momento:

Sub rellenar_historico()

If (Worksheets("HacerPresupuesto").Range("A11").Value <> "001+(x)") Then
Worksheets("Historico").Range("G5").Value = Worksheets("HacerPresupuesto").Range("A11").Value
Worksheets("Historico").Range("D5").Value = Worksheets("HacerPresupuesto").Range("B11").Value
Worksheets("Historico").Range("E5").Value = Worksheets("HacerPresupuesto").Range("E49").Value
Worksheets("Historico").Range("B5").Value = Worksheets("HacerPresupuesto").Range("E4").Value
If (Worksheets("Historico").Range("B5").Value <> "" And _
Worksheets("Historico").Range("D5").Value <> "" And _
Worksheets("Historico").Range("E5").Value <> "" And _
Worksheets("Historico").Range("G5").Value <> "") Then
Worksheets("Historico").Range("G(last)").Value = Worksheets("HacerPresupuesto").Range("A11").Value
Worksheets("Historico").Range("D(last)").Value = Worksheets("HacerPresupuesto").Range("B11").Value
Worksheets("Historico").Range("E(last)").Value = Worksheets("HacerPresupuesto").Range("E49").Value
Worksheets("Historico").Range("B(last)").Value = Worksheets("HacerPresupuesto").Range("E4").Value
End If
End If
End Sub

eso de (last) se q no esta bien lo puse para aclararme solo, bueno el caso es q la primera vez me los coloque en la fila 5, y a partir de ahi valla colocandolo en las sucesivas filas, la primera parte del codigo hasta el 2º IF me funciona pero me falta lo otro, he oido de hacerlo con un bucle FOR pero nose como hacerlo.... si alguien me pudiese ayudar se lo agradeceria

Para usar un bucle FOR lo que primero tenes que saber es la cantidad de datos que vas a recorrer. Suponiendo que la variable "Cantidad" tenga este valor, el bucle FOR quedaria asi


Sub rellenar_historico()

For I=1 to Cantidad

If (Worksheets("HacerPresupuesto").Range("A11").Value <> "001+(x)") Then
Worksheets("Historico").Range("G5").Value = Worksheets("HacerPresupuesto").Range("A11").Value
Worksheets("Historico").Range("D5").Value = Worksheets("HacerPresupuesto").Range("B11").Value
Worksheets("Historico").Range("E5").Value = Worksheets("HacerPresupuesto").Range("E49").Value
Worksheets("Historico").Range("B5").Value = Worksheets("HacerPresupuesto").Range("E4").Value
If (Worksheets("Historico").Range("B5").Value <> "" And _
Worksheets("Historico").Range("D5").Value <> "" And _
Worksheets("Historico").Range("E5").Value <> "" And _
Worksheets("Historico").Range("G5").Value <> "") Then
Worksheets("Historico").Range("G(last)").Value = Worksheets("HacerPresupuesto").Range("A11").Value
Worksheets("Historico").Range("D(last)").Value = Worksheets("HacerPresupuesto").Range("B11").Value
Worksheets("Historico").Range("E(last)").Value = Worksheets("HacerPresupuesto").Range("E49").Value
Worksheets("Historico").Range("B(last)").Value = Worksheets("HacerPresupuesto").Range("E4").Value
End If
End If

Next i
End Sub

Espero que sea de ayuda, saludos desde argentina