Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Copy cells

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