How can I concat a Do While result?

[rollis13]

This could be a solution:

Option ExplicitSub test()
    Dim Fila   As Long
    Fila = 6                                      'Info starts in F6
    Do While Range("F" & Fila) <> ""
        Range("L2") = Range("F" & Fila) & "; " & Range("F" & Fila + 1)
        Fila = Fila + 2
    Loop
End Sub