Sub AddColumns(MySheet, MyRange) ' ' AddColumns Macro ' ' Sheets(MySheet).Activate Rows("1:1").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ActiveWindow.SmallScroll Down:=-12 Range("A1").Select ActiveCell.FormulaR1C1 = "Column1" Selection.AutoFill Destination:=Range("A1:EZ1"), Type:=xlFillDefault Range(MyRange).Select End Sub