Sub abc() Dim i, j, a, n ReDim a(100, 1 To 3) a(0, 1) = 21: a(0, 2) = 204:: a(0, 3) = 18 n = 24 For i = 1 To UBound(a) If i Mod 3 = 1 Then n = n + 6 a(i, 1) = a(i - 1, 1) + 1 a(i, 2) = a(i - 1, 2) + n a(i, 3) = n Next [e1].Resize(UBound(a) + 1, 3) = a End Sub