Sub howdy()
Range("G5").FormulaR1C1 = "=CONCATENATE(RC[-6],"" "",R[1]C[-4])"
Range("A5").AutoFill Destination:=Range("A5:A11"), Type:=xlFillDefault
Range("A13").AutoFill Destination:=Range("A13:A17"), Type:=xlFillDefault
Range("A20").AutoFill Destination:=Range("A20:A25"), Type:=xlFillDefault
Range("A27").AutoFill Destination:=Range("A27:A32"), Type:=xlFillDefault
Range("A34").AutoFill Destination:=Range("A34:A38"), Type:=xlFillDefault
Range("A41").AutoFill Destination:=Range("A41:A44"), Type:=xlFillDefault
Range("A46").AutoFill Destination:=Range("A46:A51"), Type:=xlFillDefault
Rows("54:62").Delete Shift:=xlUp
Columns("G:G").EntireColumn.AutoFit
Range("G5").AutoFill Destination:=Range("G5:G90"), Type:=xlFillDefault
Range("G5").FormulaR1C1 = "=CONCATENATE(R[1]C[-6],"" "",R[1]C[-4])"
Range("G5").AutoFill Destination:=Range("G5:G34"), Type:=xlFillDefault
Range("G5").AutoFill Destination:=Range("G5:G90"), Type:=xlFillDefault
Range("G5:G89").Cut Destination:=Range("G6:G90")
End Sub