copying a formula across, but the row will vary
 

Hi,

I am new to all this and learning as I go.

I have created the following macro, which finds the first non empty cell in
a column g, moves one cell to the right (to column h) and then enters a
formula. I then need to copy this fomula into columns i to x. I am having
trouble doing this as the row number that the formula is in will always be
different. I attach what I have done so far:

Range("g24:g65000").Find(Empty).End(xlDown).Select
ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = "=HLOOKUP(RC1,INDIRECT(R5C8),R22C,FALSE)"
Selection.Copy



I'm sure it is very straight forward but really need a helping hand.

Thanks.