posting values from one sheet to another

Hi everybody i'm trying to copy a value from one cell on sheet1 for example to paste it on Sheet2 by using a button. this is the formula i'm using :

Sheets("Sheet1").Select
Range("E24").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

and it is giving me Run time error select method of range failed in the line (range ("A1").Select, can anyone please tell me what am i doing wrong, specially when i used the same formula in the past and it worked. what i want exactly is to use sheet1 as an invoice template and post values to sheet2 each time i make a new invoice. thank you in advance.

Thank you super dave !! it worked fine..i appreciate it