VBA copy and pasting into different tab at the end of the last empty row

[cynthi263]

i currently have this:

Set wb = ThisWorkbook

Set sh1 = wb.Sheets("Query")
Set sh2 = wb.Sheets("Credits")
Set sh3 = wb.Sheets("Duplicate")
Set sh4 = wb.Sheets("Rev Rvsd")
Set sh5 = wb.Sheets("Rebills")
Set sh6 = wb.Sheets("Pivot")
Set sh7 = wb.Sheets("Work")
Set sh8 = wb.Sheets("Removed")
Set sh9 = wb.Sheets("Validation")
Set sh10 = wb.Sheets("Excluded")

sh5.Range("C2:AW65000").SpecialCells(xlCellTypeVisible).Copy
With sh10
sh10.Cells(1).End(x1up).Row .PasteSpecial xlPasteAll
End With
sh5.Range("C2:AW65000").Offset(1, 0).EntireRow.Delete

i am getting an error on the line in red - i want it to paste the info from sh.5 into sh.10 at the end of the current data that is already there starting with column A.

 

[cynthi263]

That is not the code that I suggested, it should be

sh5.Range("C2:AW65000").SpecialCells(xlCellTypeVisible).Copy sh10.Range("A" & Rows.Count).End(xlUp).Offset(1)

which is all one line not two.

i used the one you posted originally but i think i split it out on two lines which is prob why it gave me the error - i'm redoing my entire macro again to see if it will work how you suggested.

 

[Fluff]

Ok, let me know how it goes

 

[cynthi263]

Ok, let me know how it goes

It looks like it worked! thanks so much for your help!

 

[Fluff]

You're welcome & thanks for the feedback