Macro to autofill cells based on last cell or final row data in adjacent column

[linesite]

I'm trying to create some automation in a macro--see attached picture. The automation includes adding a formula in cell G2 =CONCATENATE($F2,"@gmail.com")--then autofill this formula down column G to the last cell or final row in column F. I don't know how to reference the adjacent column when the formula populates the cells in column G. Any help would be greatly appreciated.

 

[Fluff]

How about

   Range("G2:G" & Range("F" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "=rc[-1]&""@gmail.com"""

 

[linesite]

The code works--thank you very much for your help.

 

[Fluff]

You're welcome & thanks for the feedback