Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Copy cells
Sub CopyHeads()
  With Worksheets("Sheet1").Range("A1")
    .Range(.Cells(1), .End(xlToRight)).Copy _
        Destination:=Worksheets("Sheet2").Range("A1")
  End With
End Sub