Inserting Page Breaks on relative Rows based on Data

Each week I format a report that I receive that lists every product a particular employee closed. Its a list of each employee, the product and date. I'll have about 20-30 lines for each employee. I can easily sort by the employee name to have a nice list.

From here what I do is use a forumla to mark where each employee's name changes, then filter by that changed line and insert page breaks for each of these lines.

Is there a way to macro this to save me time, having 270 employees takes alot of time still, because thats 270 manually inserted page breaks.

Sub x()
    Dim iRow    As Long

    iRow = 3
    Do
        With Cells(iRow, "C")
            If IsEmpty(.Value) Then Exit Do
            If .Offset(-1).Value <> .Value Then
                .EntireRow.Insert
                iRow = iRow + 2
            Else
                iRow = iRow + 1
            End If
        End With
    Loop
End Sub

Ah, page breaks:

Sub x()
    Dim cell    As Excel.Range

    ActiveSheet.ResetAllPageBreaks
    For Each cell In Range("C3", Range("C3").End(xlDown))
        If cell.Value <> cell.Offset(-1).Value Then
            ActiveSheet.HPageBreaks.Add before:=cell
        End If
    Next cell
End Sub