Range('G1').Select
ActiveCell.FormulaR1C1 = _
'=RC[-6]&RC[-5]&RC[-4]&RC[-3]&RC[-1]'
Range('G1').Select
Selection.AutoFill Destination:=Range('G1:G' & range ('g65536').end(xlup).row), Type:=xlFillDefault
Range('G1:G' & range ('g65536').end(xlup).row).Select