Foro Excel

hola buenas noches de nuevo,
fijense que tengo esta macro, que se las detallo a continuacion, y por lo visto parece que la tengo mal escrita o me falta una expresion.
pudieran por favor ayudarme a corregirla.

Sub Resumen_Diaro_Transaciones_Mayoreo()


Workbooks.Open Filename:= _
"E:\Trabajos\Resumen_Diaro_Transaciones_Mayoreo.xls"
If Range("e4") = 0 Then
Range("e4").Value = Workbooks("Captura_de_datos_1(1)").Worksheets("Registro").[c3]
Else
Range("e3").End(xlDown).Offset(1, 0).Select
Selection.Value = Workbooks("Captura_de_datos_1(1)").Worksheets("Registro").[c3]
End If
If Range("j4") = o Then
Range("j4").Value = Workbooks("Captura_de_datos_1(1)").Worksheets("Registro").[c4]
Else
Range("j3").End(xlDown).Offset(1, 0).Select
Selection.Value = Workbooks("Captura_de_datos_1(1)").Worksheets("Registro").[c4]
End If
If Range("b4") = 0 Then
Range("b4").Value = Workbooks("Captura_de_datos_1(1)").Worksheets("Registro").[a2]
Else
Range("b3").End(xlDown).Offset(1, 0).Select
Selection.Value = Workbooks("Captura_de_datos_1(1)").Worksheets("Registro").[a2]
End If
Workbooks("Resumen_Diaro_Transaciones_Mayoreo").Close SaveChanges:=True



End Sub

les subo el archivo en donde deben aparecer los resultados

hola buenos días ,
fijense que ya encontré el error,
entendiendo que significa el mensaje que envía la macro,
de todas maneras muchas gracias.