Macros to generate sequentially numbers with dynamic input and output

[paneliyadhruv]

Sub FillIt()
Dim i As Long, j As Long

i = InputBox("Enter initial")
j = InputBox("Ticket number")

    With Sheets("Sheet1").Range("a1")
        .Value = i
        .AutoFill .Resize(j - I + 1, 1), xlFillSeries
    End With

End Sub

dear all, I need help to include dynamic range in above macro.

In my sheet1 in cells D2 having start no 1 and E2 having end no 10. Then next range D3 having start no 21 and E3 having end no 30 till down for both columns D25 to E25. I need output of each range cell in columns start from AA, AB, AC and so on till all range end.
Need modification in above code to include range from two columns and output of each range in separate columns.

Thank you very much to all in advance


▬▬▬▬▬▬▬▬▬ Mod edit : thread moved to appropriate forum !

​

 

[Hui]

Can you please supply a sample file with an example input and output ?

 

[paneliyadhruv]

Dear Sir,

Thank you very much. I got solution. However, this forum is excellent.