I have the standard autofill based on range of column A formula:
Range("G2").AutoFill Destination:=Range("G2:G" & Cells(Rows.Count,