try this...

PivotTableData.Cells(LastRowTemp, "A").PasteSpecial Paste:=xlValues
--
HTH...

Jim Thomlinson


"ALATL" wrote:

I am trying to copy data from DestSheet to the last empty row in
PivotTableData worksheet. I have the following code which does everything
correctly until the last line. The "LastRowTemp" variable has the correct
value, however, the copy never happens. I get an error that says.... "Run
time error 424: Object Required".

I've checked & my variables are all named correctly. Any ideas?

Thanks!

Dim DestSheet As Worksheet
Dim PivotTableData As Worksheet
Dim LastRowTemp As Long

Set DestSheet = Sheets("Sheet3")
Set PivotTableData = Worksheets("Sheet4")

PivotTableData.Activate
LastRowTemp = Cells(Rows.Count, 1).End(xlUp)(2).Row !Get last empty row
'Copy columns User Name from Sheet 1 to Sheet 2
With DestSheet
.Range(.Range("A2"), .Range("F2").End(xlDown)).Copy
End With
PivotTableData.["A" & LastRowTemp].End(xlUp)(1).PasteSpecial Paste:=xlValues