Copy all data (B1 to last cell) and paste in another sheet from C2

[narsi412]

Hi,

I need to copy all the data in the excel sheet from Cell B1 to the last cell and paste the copied data in another sheet from C2. I tried with below code but its not working. Suggest me how to do it.

Set sh4 = Sheets("QRY_ExportMatrix")
Set sh5 = Sheets("Matrix")
lr = sh4.Cells(Rows.Count, 1).End(xlUp).Row
Set rng = sh4.Range("A1:A" & lr)
Sheets("Matrix").Select
Range("C2").Select
rng.EntireRow.Copy sh5.Cells(Rows.Count, 1).End(xlUp)(2)

Thanks & regards,
Narsi

 

[mole999]

loose
Set rng = sh4.Range("A1:A" & lr)
Sheets("Matrix").Select
Range("C2").Select
rng.EntireRow.Copy sh5.Cells(Rows.Count, 1).End(xlUp)(2)

replace with

Sheets("QRY_ExportMatrix").Range("b1:b" & LR).Copy Destination:=Sheets("Matrix").Range("c2")