どのように印刷するのかわかりませんが、
1行のセルに100個の連番を入力する・・・ということにします。
A1から右へ　1〜100
A2から右へ　701〜800
A3から右へ　1401〜1500
A4　101〜200
A5　801〜900
A6　1501〜1600
・・・
A298　 9901〜10000
A299　10601〜10700
A300　11301〜11400
と入力するのなら、以下のコードでできます。
(説明はいい加減ですが、ニュアンスはわかると思います)
iが1から100まで1つずつ加算しています。
jは700づつ加算しています。
kの値が最終番号を決めます。今は100で11400が最後になっています。

Sub test()
Dim i As Long, j As Long, k As Long
Dim cn As Long

For k = 1 To 100
    For j = 1 To 3
        cn = cn + 1
        For i = 1 To 100
                Cells(cn, i).Value = (j - 1) * 700 + i + (k - 1) * 100
        Next i
    Next j
Next k

End Sub

(以上です)