If there's only 1 dimension containing values you could use:

[vba]Sub DoesWork_snb()
Dim x()

For i = 1 To 10
If i Mod 2 = 0 Then
ReDim Preserve x(j)
x(j) = j + 1
j = j + 1
End If
Next

Range("C1").Resize(UBound(x) + 1) = Application.Transpose(x)
End Sub[/vba]