Excel VBA – How to copy entire row

Sheets("Sheet1").Range("A1").EntireRow.Copy Destination:= Sheets("Sheet2").Range("A1")

 If you wish to copy the entire row to the next available row on Sheet2:
  Sheets("Sheet1").Range("A1").EntireRow.Copy Destination:= Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)

 This assumes that you already are capable of creating a macro/event handler in the VBE and simply need the syntax to copy the row.