Help with VBA code

[chriswrcg]

I am trying to copy a range from one sheet and paste it at the next available row on another sheet.
My code is as follows.

Sub Archive()
Sheets("Data Entry").Select
    Range("A3:AC31").Select
    Selection.Copy
    Sheets("Data Archive").Select
    Range("A" & Rows.Count).End(xlUp).Offset (1)
End Sub

I keep getting an error message but I can't figure out what is wrong.

 

[oldbrewer]

on line 6 select A3 to AC31 on a spare sheet for test purposes - that will tell you if that line of code is the problem

 

[Fluff]

You don't need to select every thing. try

Sub Archive()
Sheets("Data Entry").Range("A3:AC31").Copy _
    Sheets("Data Archive").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub