How can I concat a Do While result?

Hello everyone.
I'm trying to concatenate the data from Col "F", following by a ";" and paste the result in Cell "L2".
I tried several time without success.

This is my code:

Fila =6 'Info starts in F6
Do While Range("F" & Fila) <>""
Fila=Fila+1

I tried with
ActiveCell.Formula2R1C1="=Concat(Fila & ""; "")"
(obviously is wrong)

I want this as example:
in F6 = Perez, Ricardo
in F7 = Perez, Patricia
as result in L2= Perez, Ricardo; Perez, Patricia

Thanks. I'm a beginner with the VBA.

This could be a solution:

Code:

---

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

---

The Do While is working, but L2 doesn’t show me all the data. Only show me the data from 2 rows.

Quote:

---

Originally Posted by rollis13

This could be a solution:

Code:

---

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

---

---

I was following your example thinking you just needed a track, then you would've customized it by yourself.

Code:

---

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

---

I analyzed what I need, and I detected that there is other way to obtain the result without Concat.
I appreciate your time. Your comment helps me to understand the Do While

In fact, I haven't used Concat either ;).