macro to copy formula to end of range

**nods** · 11-18-2010, 10:19 PM

Hi I have a worksheet with formula in F2 and G2. Column H is populated by data captured in a user form.

I would like to program the form to copy the the formula down to the the last row in the range.

For example if the user enters data and column H is then filled upto row 12 (this could be different every time) then I want the formula to copy down to row 12 in columns F and G!

I hope that makes sense.Can anybody help?

This is the code I have so far but it copys all the way down to the bottom of the work book,

Many thanks

Sub Macro6()  

 ' Macro6 Macro  

    Range("F2:G2").Select  

    Selection.AutoFill Destination:=Range("F2:G65536")  

     Range("F2:G65536").Select  

       

 End Sub

**jaslake** · 11-18-2010, 10:55 PM

Hi nods

It'll probably be something like this

Option Explicit
Sub Macro6()
    Dim LR As Long
    LR = Range("H" & Rows.Count).End(xlUp).Row
    Range("F2:G2").Select
    Selection.AutoFill Destination:=Range("F2:G" & LR)
End Sub

John