VBA Excel - For... next instruction

[gvaladezmx]

Hi, I'm trying to get cell values starting from A22.. and then A23, etc. each cycle from my for instruction
The firt module is working fine, however with test1 module is writing all the time A22 value.

Sub Create_RO()
Dim total() As Variant
Dim maximo As Long
Dim i As Long
maximo = Range("A21").Value
ReDim total(1 To maximo)
For i = 1 To maximo
     total(i) = i
Next i
total = Application.Transpose(total)
Range("A22").Resize(UBound(total)).Value = total
End Sub


Sub test1()
For x = 22 To (21 + Range("A21").Value)
Cells(x, 2) = "MSAI0" & Range("D4") & "L" & Range("C18") & "0" & Range("A22") & "RO" & Range("J4") & Range("K4")
Next
End Sub

Can you help me with this please?

Thank you