Espacios en nombre

Buenos tardes octavohokege me pregunatria si me podrias ayudar con esta inquietud
tengo una macro que me concatena los datos que se encuentran en la colummna B,C,D,E celdas y me arroja el resulatado en la "f"; lo que quiero es que el resultado me concatene con los espacios neceserios ejemplo
como me concatena:
diego   felipe bedoya castañeda 
como me deveria:
diego felipe bedoya castañeda 
este es el codigo commo  puedo adaptarlo
gracias
Sub Concatenar1()
Dim Incremento_Fila As Integer
   Dim destino As String
   Dim cadena As String
   Set rango = Worksheets("Mana_Infantil")
   Range("F1").Select
   Selection.EntireColumn.Insert
   Set rango = Worksheets("Mana_Infantil")
   Range("B1").Select
   Incremento_Fila = 0
   Continuar = True
   Do While Continuar
        If Not IsEmpty(ActiveCell.Offset(Incremento_Fila, 0)) Then
            cadena = ActiveCell.Offset(Incremento_Fila, 0).Value & " " & ActiveCell.Offset(Incremento_Fila, 1).Value & " " & ActiveCell.Offset(Incremento_Fila, 2).Value & " " & ActiveCell.Offset(Incremento_Fila, 3).Value
            destino = "F" & Incremento_Fila + 1
            Set rango = Worksheets("Mana_Infantil")
            Range(destino) = cadena
            Incremento_Fila = Incremento_Fila + 1
        Else
            Continuar = False
        End If
   Loop
    Columns("F:F").ColumnWidth = 49.57
End Sub