Macro to find end of column data

[briandhowells]

I have a range of data (ex: A1:F20) and in the column (g) next to the
data i have a formula that adds certain fields. I am constantly
adding rows of data, so what I want is a macro that will find the last
row of data in column F, then paste the formula from the last row of
column G down to that row. Any help is appreciated. Thanks in
advance.

 

[Guest]

One way...

Sub CopyFormula()
Dim rngToCopy As Range
Dim rngLast As Range

Set rngToCopy = Cells(Rows.Count, "G").End(xlUp)
Set rngLast = Cells(Rows.Count, "F").End(xlUp)

If rngToCopy.Row < rngLast.Row Then _
rngToCopy.Copy Range(rngToCopy.Offset(1, 0), rngLast.Offset(0, 1))

End Sub

 

[briandhowells]

Perfect. Thanks!

One way...

Sub CopyFormula()
Dim rngToCopy As Range
Dim rngLast As Range

Set rngToCopy = Cells(Rows.Count, "G").End(xlUp)
Set rngLast = Cells(Rows.Count, "F").End(xlUp)

If rngToCopy.Row < rngLast.Row Then _
rngToCopy.Copy Range(rngToCopy.Offset(1, 0), rngLast.Offset(0, 1))

End Sub
--
HTH...

Jim Thomlinson





- Show quoted text -