Visual Basic - Pasar de un fichero excel a otro recorriendo filas y columnas

Estoy intentado, hacer con un botón en Excel, que me capture los datos de un rango de una hoja excel a otro rango de otra hoja excel, mientras en la hoja origen hayan datos. El botón es algo así, pero no me va.
agadecería ayuda.
El error es se ha producido el error 1004, cuando llega a la variable dIpte

Private Sub CommandButton2_Click()
Dim i, j As Long

Dim dIpte As Double
Dim sCta As String
Dim sRes As String

Application.Workbooks.Open "C:\fichero1.xls"
Workbooks("fichero1.xls").Worksheets("Informe 1").Activate
Application.ScreenUpdating = True

i = 5
j = 5

While Range("C" & i) <> ""
Workbooks("fichero2.xls").Worksheets("Informe 1").Activate
dato = ActiveCell.Value

dIpte = Range("C" & i).Select
sCta = Range("D" & i).Select
sRes = Range("E" & i).Select

'abre un segundo libro
Workbooks("fichero1.xls").Worksheets("Hoja3").Activate
' Copiar los valores de las variables en fichero1
Range("A" & j) = dIpte
Range("B" & j) = sCta
Range("C" & j) = sRes

Workbooks("fichero2.xls").Worksheets("Informe 1").Activate
i = i + 1
j = j + 1

Wend
'Workbooks("fichero2.xls").Close False
End Sub

Mira los cambios que propongo.

Una cosa que no entiendo. Abres el fichero1 y activas la hoja informe 1 para luega pegar en la hoja3



Saludos.

Gracias Antoni, pero no me graba, nada en el fichero2, hoja3, la variable cambia a las distintas filas y columnas pero no captura el dato del fichero1, ni lo pasa al fichero2.

Este es el código que utilizo, lo que intento es que me pase del fichero1, hoja Informe 1del rango A5:cxxxxx; al fichero2, hoja3, desde el rango a5:cxxxxx, los datos llenos que encuentre, lo que ahora me hace es: aparece verdadero, en la celda A5, b5, c5, a6, b6,c6, etc.
con esto yo supongo que debía hacer, si encuentra en la celda a5, del fichero 1, hoja de informe 1 distinta a vacía, que copie el contenido de esa celda en el fichero2, hoja3, a5, así sucesivamente, pero lo que me hace es grabar verdadero en cada celda.
y le tengo que decir .
Do While Cells(nFila, 1) = "", en vez de = a vacía , entra en el bucle con = vacía, cuando este fichero tiene datos en esas celdas.
¿Me puedes decir que hago mal y como debo hacerlo,
Gracias por todo y un saludo.

No lo entiendo, si el fichero que yo quiero que vea es el fichero1, hoja Informe 1, Celdas a5:cxxxx, que tiene datos.

Private Sub cmdBotonx_Click()
Dim nFila As Long
Dim i As Integer
Application.Workbooks.Open "K:\ficehro1.xls"
Worksheets("Informe 1").Activate

nFila = 5
i = 1
Do While Cells(nFila, 1) <> ""

For i = 1 To 3

Workbooks("fichero2.xls").Worksheets("HOJA3").Activate

Hoja3.Select


ActiveCell.Offset(1, 0).Select


Cells(nFila, i) = Workbooks("fichero2.xls").Worksheets("HOJA3").Activate

Next

ActiveCell = Hoja3.Range("A5")

nFila = nFila + 1
Loop


End Sub

Aqui os dejo el fichero, que tanto me está costando, este casi funciona, pero lo que quiero es si alguién me puede ayudar, para depurarlo, lo agradecería.
Lo que quiero conseguir, es que: con un botón incorpore datos del fichero1, hoja1 recorriendo las filas y columnas y pasar los datos celda a celda al fichero2 hoja 2, siempre que el fichero1, hoja1 tenga datos en las celdas. Llegará un momento que en la columna A, celda x esté vacía, todo ese registro estará vacío.
Private Sub cmdrellenar_Click()
Dim nFila As Long
Dim i As Integer
ActiveCell.Offset(nFila + i, 0).Select
Workbooks("fichero1").Worksheets("Hoja1").Activate
ActiveCell.Offset(rowOffset:=0, columnOffset:=0).Activate

Application.Workbooks.Open "C:\tabla\Fichero2"
Worksheets("Hoja2").Activate
Dato = ActiveCell.Value
nFila = 5
i = 1

Do While Cells(nFila, i) = ""
For i = 1 To 2
Workbooks("Fichero2").Worksheets("Hoja2").Activate
Dato = ActiveCell.Value ‘ lee el dato celda activa
Workbooks("fichero1").Worksheets("Hoja1").Activate
ActiveCell.Value = Dato ‘ Pasa el dato celda activa
ActiveCell.Offset(0, 1).Select ‘cambia a otra columna

Workbooks("Fichero2").Worksheets("Hoja2").Activate
ActiveCell.Offset(0, 1).Select
Workbooks("Fichero2").Worksheets("Hoja2").Activate
Dato = ActiveCell.Value
Workbooks("fichero1").Worksheets("Hoja1").Activate
ActiveCell.Value = Dato
Next i

For i = 1 To 1

Workbooks("Fichero2").Worksheets("Hoja2").Activate
Dato = ActiveCell.Value
ActiveCell.Offset(1, -2).Select ‘ cambia una fila y 2 col atrás
Dato = ActiveCell.Value
Workbooks("Fichero2").Worksheets("Hoja2").Activate

Workbooks("fichero1").Worksheets("Hoja1").Activate
ActiveCell.Offset(1, -2).Select
ActiveCell.Value = Dato
Next i

Workbooks("Fichero2").Worksheets("Hoja2").Activate
ActiveCell.Offset(0, 1).Select
Dato = ActiveCell.Value

Workbooks("fichero1").Worksheets("Hoja1").Activate
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Dato
Workbooks("Fichero2").Worksheets("Hoja2").Activate
ActiveCell.Offset(0, 1).Select
Dato = ActiveCell.Value

Workbooks("fichero1").Worksheets("Hoja1").Activate
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Dato
Loop


nFila = nFila + 1
For i = 1 To 2
Workbooks("Fichero2").Worksheets("Hoja2").Activate
Dato = ActiveCell.Value
Workbooks("fichero1").Worksheets("Hoja1").Activate
ActiveCell.Value = Dato

Next i

For i = 1 To 1
nFila = nFila + 1
Workbooks("Fichero2").Worksheets("Hoja2").Activate
Dato = ActiveCell.Value
ActiveCell.Offset(1, -2).Select
Dato = ActiveCell.Value

Workbooks("Fichero2").Worksheets("Hoja2").Activate

Workbooks("fichero1").Worksheets("Hoja1").Activate
ActiveCell.Offset(1, -2).Select
ActiveCell.Value = Dato
Next i
Workbooks("Fichero2").Worksheets("Hoja2").Activate
ActiveCell.Offset(0, 1).Select
Dato = ActiveCell.Value

Workbooks("fichero1").Worksheets("Hoja1").Activate
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Dato

Workbooks("Fichero2").Worksheets("Hoja2").Activate
ActiveCell.Offset(0, 1).Select
Dato = ActiveCell.Value

Workbooks("fichero1").Worksheets("Hoja1").Activate
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Dato
Dato = ActiveCell.Value

Workbooks("Fichero2").Worksheets("Hoja2").Activate
Dato = ActiveCell.Value
ActiveCell.Offset(1, -2).Select
Dato = ActiveCell.Value

If ActiveCell.Value = "" Then
Workbooks("fichero1").Worksheets("Hoja1").Activate
Cells(nFila + 1, 1) = "esta casilla está en blanco"
Else
Cells(nFila, i) = " esta casilla no está en blanco"
End If
Workbooks("Fichero2").Worksheets("Hoja2").Close
End Sub