Macro para recorrer lista y copiar datos

Hola, estoy haciendo una pequeña macro que recorre una lista y copia los datos de algunas celdas a otra hoja mediante nombres de rango ya definidos. La cuestión es que la macro copia y pega bien el primer dato pero luego me sale el error "error en el método range de objeto global" soy muy principiante en esto y no se que es lo que hago mal. Aquí va la macro:

Sub Cargar_todojunto()
Dim Contador As Integer
Contador = 0
Application.ScreenUpdating = False
Range("I2").Select
Do While ActiveCell.Value <> ""
'selecciona celdas a copiar
Hora = ActiveCell.Offset(0, 0).Value
Causa = ActiveCell.Offset(0, 1).Value
Detalle = ActiveCell.Offset(0, 2).Value
'asigna el nombre del rango destino
Hdestino = ActiveCell.Offset(0, 4).Value
Cdestino = ActiveCell.Offset(0, 5).Value
Ddestino = ActiveCell.Offset(0, 6).Value
'posiciona en la hoja a trabajar
'nbreHoja = [Hoja_carga]'
Sheets("nbreHoja").Select
'selecciona el nombre del rango y pega los datos
Range(Hdestino) = Hora
Range(Cdestino) = Causa
Range(Ddestino) = Detalle
Contador = Contador + 1
ActiveCell.Offset(1, 0).Select
Loop
'mensaje de carga ok
MsgBox ("Se cargaron " & Contador & " datos")
End Sub

desde ya muy agradecido