Perhaps:
Code:
Sub Macro4()
Range("SummerCompTable").Range("A1:C1").Copy
With Range("POYCompTable")
.ListObject.ListRows.Add (1)
.Range("A1").PasteSpecial
End With
End Sub
PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab.