Maximum Rows per page

[Danny54]

Good afternoon All
i've been working on the following excel macro code trying to get only so many rows per worksheet. (25) I have a workbook with one sheet containing the following information

Prod	IPs
A	10.10.10.0-10.10.10.255
B	192.168.1.1-192.168.1.255

When the following macro runs it puts all the information into one sheet(sheet2).
I need it to create new sheets with a max row count of 25 in each new sheet.
All the output is done at the end of the macro where it shows sheet2

Sub Expandit()
Dim W, S$(), N&, K&, V, L$(), R$(), A%, T$(3), B%, C%, D%
W = [Sheet1!A1].CurrentRegion.Value2
ReDim S(1 To Rows.Count, 1): S(1, 0) = W(1, 1): S(1, 1) = W(1, 2)
N = 1
imax = 10000000
For K = 2 To UBound(W)
For Each V In Split(W(K, 2), ",")
L = Split(V, "-")
If UBound(L) = 1 Then
R = Split(L(1), ".")
L = Split(L(0), ".")
If UBound(L) = 3 And UBound(R) = 3 Then
For A = L(0) To R(0)
T(0) = A
For B = -L(1) * (A = L(0) * 1) To IIf(A < R(0) * 1, 255, R(1))
T(1) = B
For C = -L(2) * (B = L(1) * 1) To IIf(B < R(1) * 1, 255, R(2))
T(2) = C
For D = -L(3) * (C = L(2) * 1) To IIf(C < R(2) * 1, 255, R(3))
T(3) = D
N = N + 1
S(N, 0) = W(K, 1)
S(N, 1) = Join(T, ".")
Next D, C, B, A
End If
Else
N = N + 1
S(N, 0) = W(K, 1)
S(N, 1) = V
End If
Next V, K
[Sheet2!A1:B1].Resize(N).Value2 = S
End Sub


Thanks

 

[BSALV]

     ....
     Next V, K
     [Sheet2!A1:B1].Resize(N).Value2 = S

     For i = 1 To N Step 25                                     'divide N in portions of max 25
          arr = WorksheetFunction.Sequence(Application.Min(25, N - i + 1), 1, i)     ' a 2D-array in the sequence i, i+1, i+2, ...., i+24 (or less then 24 in the last run)  ---> sequence = only in excel 365 and 2021 !!!
          Sheets.Add after:=Sheets(Sheets.Count)                'add sheet after all the others
          ActiveSheet.Range("A1").Resize(UBound(arr), 2).Value2 = Application.Index(S, arr, Array(1, 2))     'write <=25 lines * 2 columns
     Next
End Sub

 

[Danny54]

Thank you so much.