a b c
1 x y
2 x y
3 x y
4 x y
şeklinde ise c1 hücresine =birleştir(a1;" ";b1) olabilir
yada a1 hücresinde sonuç almak istiyorusan makro lazım onun içinde

Dim i, son As Integer
  son = [A65536].End(xlUp).Row
   For i = 1 To son
  Cells(i, 1) = Cells(i, 1) & " " & Cells(i, 2)
 Next i
Range("B1:B" & son).ClearContents

işini görür...