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