So U actually want to concatenate non-contiguous columns not " I require 5 cells in a row to be joined together as one". This is fairly basic. Dave
Sub test()
Dim Lastrow As Integer, Cnt As Integer
With Sheets("sheet1")
Lastrow = .Range("B" & .Rows.Count).End(xlUp).Row
End With
For Cnt = 1 To Lastrow
Sheets("Sheet1").Cells(Cnt, "A") = CStr(Sheets("Sheet1").Cells(Cnt, "B")) & " " _
& CStr(Sheets("Sheet1").Cells(Cnt, "C")) & " " & CStr(Sheets("Sheet1").Cells(Cnt, "D")) & " " _
& CStr(Sheets("Sheet1").Cells(Cnt, "F"))
Next Cnt
End Sub