VBA Code to copy all data from sheet 1 and paste it to sheet5 using a command button

Hi

Can someone give me a simple code to copy all data on sheet1 and paste it to sheet5 using command button

Angela

Sub Macro1()
Sheets("sheet1").Cells.Copy Sheets("sheet5").Range("A1")
End Sub

Hi

I have put this code in but it doesn't work with my command button, am I missing something

error saying expected end sub

Angela

Thanks it works perfectly

Angela

Hi
Can you help me a little more I want to copy a second sheet onto Sheet 2 but when I do that it removes the first sheets data. Is there an extra bit of code to tell it to go to the first free line

Angela

If you are copying in to next empty row in column A

Sub Macro1()

Sheets("sheet1").Cells.Copy Sheets("sheet5").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

What the code is saying to is: Copy all cells in sheet1 in to the next empty row in column A of sheet 5. You should do the same with the other sheet.
If it is not working, please attach a sample.

Thanks this worked

Angela