Snasui Excel Forum

Code: Select all

    Range("B1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("B1:B2").Select
    Selection.AutoFill Destination:=Range("B1:B16")
    Range("B1:B16").Select

Code: Select all

    Selection.AutoFill Destination:=Range("B1:B16")
    Range("B1:B16").Select

Code: Select all

Sub Macro2()
Dim lr As Long
lr = Range("D" & Rows.Count).End(xlUp).Row
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("E1:E2").AutoFill Destination:=Range("E1:E" & lr)
    Range("E1").Select
End Sub