Fill formula

[kenpcli]

I need a script to fill a column with the formula in cell d2 until there is nothing in column a.

Thnak you

 

[jtakw]

Hi,

Select D2, point to Cell/Fill Handle (little right square at bottom right corner of cell), Double Left click.

 

[Trebor76]

Hi kenpcli,

Is this what you're after:

Option Explicit
Sub Macro2()

    Range("D2").Copy Destination:=Range("D3:D" & Cells(Rows.Count, "A").End(xlUp).Row)

End Sub

Robert

 

[kenpcli]

Works Great Thank You