Loc.bas

Sub Loc()
Dim DATA As Variant, I As Long, J As Long, TMP As Variant, MA As String, T As Double
DATA = Sheet1.Range("A2:C" & Sheet1.Cells(Sheet1.Rows.Count, "C").End(xlUp).Row).Value2
T = Timer
ReDim TMP(0)
J = -1
For I = 1 To UBound(DATA, 1)
    MA = CStr(DATA(I, 1) & DATA(I, 2))
    If MA <> vbNullString Then
          J = J + 1
          ReDim Preserve TMP(J)
          TMP(J) = DATA(I, 3)
    Else
       TMP(J) = TMP(J) & " ; " & DATA(I, 3)
    End If
Next
Sheet1.Range("J2:J1048576").ClearContents
Sheet1.Range("J2").Resize(UBound(TMP, 1) + 1) = Application.Transpose(TMP)
MsgBox Round(Timer - T, 3)
End Sub