Schleife mit Redim Preserve

Sub Zielgewicht_speichern()
Dim matzielgewicht() As Variant
Dim i As Integer
i = 1
Do Until Range("Isin_zielport").Offset(i, 0) = ""
If Range("Zielgewicht").Offset(i, 0) > 0 Then
ii = ii + 1
ReDim Preserve matzielgewicht(ii, 2)
matzielgewicht(ii, 1) = Range("Isin_zielport").Offset(i, 0)
matzielgewicht(ii, 2) = Range("zielgewicht").Offset(i, 0)
End If
i = i + 1
Loop
End Sub