copy error

[22strider]

Hello Friends

Could anyone please check if I am doing this right? I am trying to copy cells from first 4 columns of spreadsheet "Tools and Parts" (row variable) and paste it to first four columns of another worksheet ReportSheet (variable)

in the next row copying values from cells in column M,N,O,P of sheet "Tools and Parts" and paste it to columns E,F,G,H of ReportSheet(variable).

Following is the code

Sheets("Tools And Parts").Cells(i, "A").Resize(, 4).Copy Sheets(ReportSheet).Cells(lR2 + 1, "A").Resize(, 4)
            Sheets("Tools And Parts").Cells(i, "M").Resize(, 4).Copy Sheets(ReportSheet).Cells(lR2 + 1, "E").Resize(, 4)

Thanks
Rajesh