Sub CopyHeads() With Worksheets("Sheet1").Range("A1") .Range(.Cells(1), .End(xlToRight)).Copy _ Destination:=Worksheets("Sheet2").Range("A1") End With End Sub