Не уверен, что именно вам нужно, но это стартер:
Этот метод VBA будет зацикливать ваши ячейки, объединять значения и печатать его в консоли отладки или устанавливать другую ячейку со значением.
Sub concat()
Dim rng As Range
Dim row As Range
Dim cell As Range
Dim str As String
Set rng = Range("B3:B6")
For Each row In rng.Rows
For Each cell In row.Cells
' This is the result string:
str = str & " " & cell.Value
Next cell
Next row
' Print the concatantion string to the console:
Debug.Print (str)
' or just set the value in another cell:
Cells(10, 10).Value = str
End Sub