もしかして、このような表示が欲しいということですか?
A1セルに　1〜100　
A2セルに　701〜800
A3セルに　1401〜1500
A4セルに　101〜200
A5セルに　801〜900
A6セルに　1501〜1600


アップロードしていただいたファイルを見て、
このようなことか？　と気づいた次第です。

印刷の設定はそちらで手作業で行うこととして、
以下のようなコードにしました。
関数でできそうですけど頭が回らないので、VBAで・・・

Sub test2()
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
        i = 1
        Cells(cn, i).Value = (j - 1) * 700 + (k - 1) * 100 + 1 & "〜" & (j - 1) * 700 + (k - 1) * 100 + 100
        
    Next j
Next k

End Sub