Copy & Paste to Last Empty Row

G

Guest

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
 
G

Guest

Try this:
PivotTableData.Range("A" & LastRowTemp).End(xlUp)(1).PasteSpecial
Paste:=xlValues
 
G

Guest

Try this:
Set DestSheet = Sheets("Sheet3")
Set PivotTableData = Worksheets("Sheet4")
LastRowDest = Range("F65536").End(xlUp).Row

PivotTableData.Activate
LastRowTemp = Cells(Rows.Count, 1).End(xlUp).Row
'Copy columns User Name from Sheet 1 to Sheet 2
With DestSheet
.Range(.Range("A2"), .Range("F2:F" & LastRowDest)).Copy
Destination:=PivotTableData.Range("A" & LastRowTemp)
End With
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top