Copiar datos de una hoja a otra y pasar a la siguiente fila

[Miguel A. Tamaniz H.]

Hola, buenos dias
Tengo un codigo el cual pido que me copie de una hoja llamada SOLICITUD_DE_RMA´S del rango B28:J37, lo copiara a una hoja concentradora llamada CTRL_RECTIFIC iniciando en B4 y luego pase a la siguiente linea par seguir agregando mas , pero me marca un error, mi codigo es el siguiente:

Agradeceria muchisimo su valioso tiempo y apoyo, ya que no logro dar con el error............... saludos amigos

SUB COPY_DAT()
'
Dim strTitulo As String
Dim Continuar As String
Dim TransRowRng As Range
Dim NewRows As Long      'te cambié esto porque a medida que crezca el Integer no te va a servir
Dim IColum, J As Integer
'
strTitulo = "RECTIFICADORES - CONTROL DE REPARACIONES"
Continuar = MsgBox("¿Desea dar de alta los datos?", vbYesNo + vbExclamation, strTitulo)
If Continuar = vbNo Then Exit Sub
'
J = 1
Set TransRowRng = ThisWorkbook.Worksheets("Ctrl_RECTIFIC").Cells(5, 2).CurrentRegion
NewRows = TransRowRng.Cells(Rows.Count, 2).End(xlUp).Offset(1).Row <-------------MARCA EL ERROR
For IColum = 2 To 10
    For J = 1 To 10
        With ThisWorkbook.Worksheets("Ctrl_RECTIFIC")
        .Cells(NewRows, IColum).Value = ThisWorkbook.Sheets("Solicitud_de_RMA'S").Cells(28, IColum)
        .Cells(NewRows + J, IColum).Value = ThisWorkbook.Sheets("Solicitud_de_RMA'S").Cells(28 + J, IColum)
        End With
    Next J
  
Next IColum

'
MsgBox "Registro(s) Guardado(s) con Exito", vbInformation, strTitulo
'
'
End Sub

 

[Antoni]

No dices el error, ni donde se produce, ni subes el archivo Excel con datos para poder probar tu macro ¿Cómo pretendes que alguien pueda ayudarte? ?

[Miguel A. Tamaniz H.]

una disculpa, en el código le puse una marca donde sale el error, pero tiene razon, aqui le adjunto el libro

solicitud.xlsm

[Miguel A. Tamaniz H.]

Hace 10 horas, Antoni dijo:

No dices el error, ni donde se produce, ni subes el archivo Excel con datos para poder probar tu macro ¿Cómo pretendes que alguien pueda ayudarte? ?

una disculpa, ya adjunte el archivo

[Miguel A. Tamaniz H.]

En 29/5/2021 at 10:48 , Antoni dijo:

No dices el error, ni donde se produce, ni subes el archivo Excel con datos para poder probar tu macro ¿Cómo pretendes que alguien pueda ayudarte? ?

ayuda de favor