I'm looking for a simpler way of doing the following:

Sub CopyCell()
Sheets("SHEET1").Range("A1").Copy Sheets("SHEET2").Range("A1")
Sheets("SHEET1").Range("A2").Copy Sheets("SHEET2").Range("A1")
Sheets("SHEET1").Range("A3").Copy Sheets("SHEET2").Range("A1")
Sheets("SHEET1").Range("A4").Copy Sheets("SHEET2").Range("A1")
Sheets("SHEET1").Range("A5").Copy Sheets("SHEET2").Range("A1")
End Sub

The data in sheet1, column A is dynamic, it may contain 5 records or 500.
Instead of adding additional lines of code, is there a routine that can be
used that provides the same results?

Thanks,

Donnie