Run-time error 1004 Select method of Range class failed

[NotAsGoodAsIThoughtIWas]

I have what I thought was a simple macro, to transfer a range of cells from one worksheet to the next available row on another worksheet:

Private Sub CommandButton2_Click()
' Save & Print button

Sheets("TOOL").Range("BA132:EX132").Copy
Sheets("Data").Activate
Range("A65536").Select
ActiveCell.End(xlDown).Offset(1).Select
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("TOOL").Activate
Range("A26").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

When I click on the command button, I get the message
Run-time error '1004':
Select method of Range class failed.
When I click on Debug, it highlights the line:
Range("A65536").Select

 

[dave3009]

Try this

Private Sub CommandButton2_Click()
' Save & Print button

Sheets("TOOL").Range("BA132:EX132").Copy
Sheets("Data").Range("A65536").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[NotAsGoodAsIThoughtIWas]

IT WORKED! [I think I might be in love with you now.] Thank you so much...