VBA - Error when copying a range

[Ron512]

Why I’m I getting, Run time error 1004, application defined or object define error for the below code?

Worksheets("Sheet1").Range("A5") = Worksheets("Sheet2").Range("A1", Cells(LastRow, 1)).Value

Thanks

Ron

 

[Jonmo1]

Two problems..

1, you're not copy/pasting, you're doing A= B..Actually you're doing A = BCDEF
2. When you specify a sheet on the Range object, you must also specify the sheet on the cells properties inside the range..

Try this to actually copy/paste

Worksheets("Sheet2").Range("A1", Worksheets("Sheet2").Cells(LastRow, 1)).Copy Destination:= Worksheets("Sheet1").Range("A5")

If you want only the values, then try

Worksheets("Sheet2").Range("A1", Worksheets("Sheet2").Cells(LastRow, 1)).Copy 
Worksheets("Sheet1").Range("A5").PasteSpecial xlpastevalues

 

[Gary McMaster]

Without seeing the rest of it, my guess is "LastRow" is zero or greater than the allowed number of rows.

Gary

 

[AlphaFrog]

Try something like this...

Worksheets("Sheet1").Range("A5")[COLOR="Red"].Resize(Lastrow).Value[/COLOR] = Worksheets("Sheet2").Range("A1", [COLOR="Red"]Worksheets("Sheet2").[/COLOR]Cells(Lastrow, 1)).Value

 

[Ron512]

Thanks everyone, all suggested solutions worked.

Ron