copy data from Sheet1 to sheet2 and Paste Data Below the Last Used Row

[Patriot2879]

Hi good morning, i have the ode below where I am trying to copy all the data in a sheet called 'New' and paste into the last row in a sheet called 'Combined but its not working for me can you help please.

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
  Dim copySheet As Worksheet
  Dim pasteSheet As Worksheet

  Set copySheet = Worksheets("New")
  Set pasteSheet = Worksheets("Combined")
  copySheet.Range("A:BE").Copy
  pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
  End Sub

 

[Darren Bartrup]

The naming was fine, what it was referencing wasn't. "copySheet.Range("A:BE")" refers to whole columns.

 

[Patriot2879]

Ahh now I get you, thank you for that, and thanks again for all your help.