Values from Array, populate into Cell

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