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)...