Macro code for copying formulas till the last non-empty cell

Hi All,

I'd need a little help with assigning a range to my macro.

What I need to do is the same as writing the formula to one cell, then doble click to the small cross at the bottom which automatically copies the formula to the last cell which is in a row that has values in the previous column.
After recording the macro, this is what I get:

Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H14")

(obviously, I had 14 rows with values this time)
What I'd like to have is a general formula for the selection described above, meaning if I have more rows than 14, the formula would still appear in the desired cell.

Thanks in advance,
Zoli

One way, but not auto, you need to run the code.

Please Login or Register  to view this content.

Or

Please Login or Register  to view this content.

If you just want a code that is similar to your first you can use the following.

Please Login or Register  to view this content.

It selects down to the last cell with it in a value from the initial cell you select, and then fills all those cells with the formula. Hope that helps!