I have checked this code , no syntax error
I have modified comments in this code plz try this.

Code:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 1/31/2007 by AAA
'
    Sheets("Sheet1").Select ' Select ur Source Sheet
    Range("A1").Select       '   Select First Cell of Column A
    Range(Selection, Selection.End(xlDown)).Select '  Select complete column till end
    Selection.Copy  ' Copy Values
    Sheets("Sheet2").Select  ' Select Sheet2 ( Destination Sheet)
    Dim nCount As Integer
    nCount = Sheets("Sheet2").UsedRange.CurrentRegion.Rows.Count ' Get Last used Row on Sheet2
    Cells(nCount + 1, 1).Select '  Select Last cell of Column A
    ActiveSheet.Paste  ' Paster Values

'
End Sub