Fill down Macro

[ibTops]

Hi, I need a Macro that selects cells C2:I2 and AutoFills Down to the last row (Column A determines where the data ends).

Each of the cells has a different formula, so with this method I don't have to create a Macro where I specify each formula that I want to Auto fill down.

Thanks in advance!!

 

[ranman256]

Sub CopyCI()
Dim r As Long


    Range("A1").Select
    Selection.End(xlDown).Select
    r = ActiveCell.Row
    
    Range("C2:i2").Select
    Selection.Copy
    Range("C3:i" & r).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
   
End Sub

 

[Fluff]

Another option

Sub Fillfrml()
    Range("C2:I" & Range("A" & Rows.Count).End(xlUp).Row).FillDown
End Sub

 

[ibTops]

Yay, great!! Thanks to both of you!

 

[Fluff]

Glad we could help & thanks for the feedback