Values from Array, populate into Cell

Hi all,
I have coded following macro, it is working when I save the values to immediate window, but don't know how to populate the values, delimited with "," into one cell. Basically I look for "Active" in a column, and if found, go 4 cells to the left and take the info from there...
Could you help please?

HTML Code: 

Public Sub Compile()
Dim Active() As Variant
Dim i, strng As String
ReDim Active(Range("G9:G24").Cells.Count)
For Each Zelle In Range("G9:G24")
If InStr(1, Zelle, "Active") <> 0 Then
Active(i) = Zelle.Offset(0, -4)
End If
i = i + 1
Next Zelle
strng = ""
For i = LBound(Active) To UBound(Active)
    If Trim(Active(i)) <> "" Then
        If strng = "" Then
            strng = Active(i)
        Else
            strng = strng & "," & Active(i)
        End If
    End If
Next i
End Sub

You can also use the Join method.

Dim Active() As Variant
Dim i
ReDim Active(Range("G9:G24").Cells.Count)
For Each Zelle In Range("G9:G24")
If InStr(1, Zelle, "Active") <> 0 Then
Active(i) = Zelle.Offset(0, -4)
End If
i = i + 1
Next Zelle

Debug.Print Join(Active, ",") 'shows info in Immediate Window
Range("G25").Value = Join(Active, ",") 'Print into cell G25
End Sub

Do you mean?

    Dim Active() As Variant
    Dim i As Long, Zelle As Range
    ReDim Active(Range("G9:G24").Cells.Count)
    For Each Zelle In Range("G9:G24")
        If InStr(1, Zelle, "Active") <> 0 Then
            Active(i) = Zelle.Offset(0, -4)
            i = i + 1
        End If
    Next Zelle
    ReDim Preserve Active(i - 1)
    MsgBox Join(Active, ",")

thank you all