+1  A: 

This will copy everything from the first worksheet to the second:

Sub Test()
    Worksheets("Sheet1").UsedRange.Copy
    Worksheets("Sheet2").Range("A1").PasteSpecial
End Sub
Ben Hoffstein