Consolida_datos_de varias columnas a siete columnas con macros

Tengo una base de datos que agrupa registros cada 10 columnas, busco consolidar los datos en 7 columna ( 3 columnas se excluyen) en otra hoja del mismo libro, sin embargo puedo hacer el procedimiento una sola vez, cuando quiero pasar los datos de las otras columnas no me permite el código que anexo, por favor les agradeceré ayudarme.

Sub Regtrozad() 'para el libro de operaciones ayuda a registrar el trozado
Application.ScreenUpdating = False
Dim FilaActi, FilaInacti, FilaUltimaControl, i, Contador As Integer
Hoja1.Select 'mp es el libro original
FilaActi = Hoja2.Range("c65536").End(xlUp).Row + 1
FilaUltimaControl = Hoja1.Range("A65536").End(xlUp).Row + 1
Contador = 0
For i = 4 To FilaUltimaControl
If Range("c" & i) <> "" And Range("J" & i) = "" Then
       Contador = Contador + 1
            Hoja2.Range("A" & FilaActi & ":g" & FilaActi).Value = Range("b" & i & ":h" & i).Value
         FilaActi = FilaActi + 1
    Range("j" & i) = "x"
End If
Next
MsgBox ("Se han Registrado " & Str(Contador) & " Árboles")
End Sub