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

[mtamaniz]

BUENAS NOCHES

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 informacion, 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

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

NOTA: Una disculpa si no subo el archivo, pero no encontre donde se sube

solicitud.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L
8
9
10		CLIENTE SOLICITANTE RMA:							PROVEEDOR QUE REALIZA LA REPARACION:
11		RADIOMOVIL DIPSA, S.A. DE C.V.							ELECTRONICS S.A. DE C.V.
12		REGION:		R-8					CERRO DEL TESORO NO.
13		ENTREGAR EL EQUIPO REPARADO EN LA SIGUIENTE DIRECCIÓN:							COYOACAN C.D.M.X.
14		Av. Heroes, cd mexico
15
16		NOMBRE DEL RESPONSABLE:			Miguel A.				NOMBRE DEL RESPONSABLE:		Jorge M.
17		TELEFONOS:		(55) 555555555					TELEFONOS:	TEL:(55)55555555
18		E-MAIL:	miguel@mail.com						E-MAIL:		imartinon@comsmx
19		FECHA DE SOLICITUD DEL RMA:			28/05/2021				FECHA DE RESPUESTA DEL RMA:
20
21
22
23
24		Se solicita la reparación de los equipos
25
26
27		ITEM	REGION	NO. SAP	NOMBRE SAP	NO. SERIE	NOMBRE DEL SITIO	ID DEL SITIO	RMA ASIGNADO	FECHA ASIGNACION RMA	GUIA O MODO DE ENVIO A PROVEEDOR
28		1	8	6007943	CC109168472 RECTIFICADOR SPS EP-1000	LBLNPW15CS50170907	CARDENAL	AS8106G850	2222	22/02/2021
29		2	8	6007943	CC109168472 RECTIFICADOR SPS EP-1000	LBLNPW15CS50170901	CARDENAL	AS8106G850	3333	23/02/2021
30		3	8	6007943	CC109168472 RECTIFICADOR SPS EP-1000	LBLNPW14CS43120099	BONANZA	AS2419U850	4444	24/02/2021
31		4	8	6007943	CC109168472 RECTIFICADOR SPS EP-1000	LBLNPW13CS25042371	TORONTO	EU3786U850	5555	25/02/2021
32		5	8	6007943	CC109168472 RECTIFICADOR SPS EP-1000	LBLNPW13CS13028206	TORONTO	EU7862U850	6666	26/02/2021
33		6	8	6007943	CC109168472 RECTIFICADOR SPS EP-1000	LBLNPW10LD45590791	TERRENO BRAVO	AS6046U850	7777	27/02/2021
34		7	8	6007943	CC109168472 RECTIFICADOR SPS EP-1000	LBLNPW13CS23039708	ALOHA	AS8823U850	8888	28/02/2021
35		8	8	6007945	241117.130 RECTIF MINIPACK 800W WIR	171371016856	MOTUL	AS6198U850	9999	01/03/2021
36		9
37		10
38
Solicitud_de_RMA'S

Cell Formulas
Range	Formula
E16	E16	='Captura Rectif.'!D1
D17	D17	='Captura Rectif.'!B3
C18	C18	='Captura Rectif.'!B2
E19	E19	='Captura Rectif.'!G3
F28:F37	F28	=IF('Captura Rectif.'!C8="","",'Captura Rectif.'!D8)
G28:G37	G28	=IF('Captura Rectif.'!C8="","",'Captura Rectif.'!E8)
H28:H37	H28	=IF('Captura Rectif.'!C8="","",'Captura Rectif.'!F8)
I28:J37	I28	=IF('Captura Rectif.'!G8="","",'Captura Rectif.'!G8)
C37,C28:C35	C28	=IF(D28="","",8)
D28:D37	D28	=IF('Captura Rectif.'!C8="","",'Captura Rectif.'!C8)
E37	E37	=IF('D:\- Control Refacciones Dañadas.xlsm]Captura Rectif.'!C17="","",VLOOKUP(D37,'D:\- Control Refacciones Dañadas.xlsm'!Tabla8[#All],2,1))

solicitud.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M
1	ENVIOS RECTIFICADORES
2
3		ITEM	REGION	NO. SAP	NOMBRE SAP	NO. SERIE	NOMBRE DEL SITIO	ID DEL SITIO	RMA ASIGNADO	FECHA ASIGNACION RMA	FECHA DE ENVIO	FECHA DE SOLICITUD	GUIA O MODO DE ENVIO A PROVEEDOR
4
5
Ctrl_RECTIFIC

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
I4:L11	Cell	does not contain a blank value	text	YES
D4:F11	Cell	does not contain a blank value	text	YES