Excel 2016

I have a worksheet that is composed of 928 individual packing lists. I am stumped on writing a "do while" formula in macros to search for " Packing List" and then insert a page break before the active cell. I have looked everywhere online and even went and bought excel for dummies and the formulas and functions for dummies! All to no avail. On the sheet I went to Column I and wrote a formula to count all "Packing List" within the worksheet. then wrote the following script.

Option Explicit

Sub InsertPageBreaks()

Dim PackingList As Integer

Dim i As Long

Dim r As Long

PackingList = Range("i1").Value

i = 2

r = 2

Do While i <= PackingList

If Cells(r, 1).Value = "Packing List" Then

Rows(r).PageBreak = xlPageBreakManual

i = i + 1

End If

r = r + 1

Loop

End Sub

It errors out.

Please someone point me to my errors!

Thank you

Paul