Option Base 1
Sub Buildcode()
SPX = " "
XData = Selection
nx = UBound(XData)
KeyX = ActiveSheet.Range("a1").Resize(1, 6)
XData(1, 1) = KeyX(1, 1) & SPX & XData(1, 1) & KeyX(1, 3)
XData(2, 1) = XData(2, 1) & SPX & XData(2, 2) & SPX & KeyX(1, 4)
For rdx = 3 To UBound(XData)
XData(rdx, 1) = XData(rdx, 1) & SPX & XData(rdx, 2) & KeyX(1, 5)
Next rdx

ActiveSheet.Range("H3").Resize(nx, 1) = XData
End Sub