Sub Macro4() With Range("POYCompTable") .ListObject.ListRows.Add (1) Range("SummerCompTable").Range("A1:C1").Copy .ListObject.ListRows(1).Range.PasteSpecial End With End Sub