Need Help Re-writing Recorded Macro

[Fluff]

Hi & welcome to the board
Something like this

Dim Lr As Long
Lr = Range("A" & Rows.Count).End(xlUp).Row
Range("G2").AutoFill Destination:=Range("G2:G" & Lr), Type:=xlFillDefault

This use col A to find the last used row.