pagina einde verschuiven

[H3ndrik]

Beste Helpers,

ik gebruik onderstaand stukje code (gevonden ergens hier op de site) om paginaeinden niet midden in tekstblokken te laten vallen maar bij een lege regel voor het tekstblok. Dit werkt prima, echter het is erg traag (hij 'doet' ca. 100 regels per minuut). Heeft iemand een idee hoe ik deze code beter / sneller kan maken?

On Error Resume Next         'paginaeinden bepalen
Dim lRij As Long, lRijEinde As Long, lRijBreak As Long, Kolom As String
    lRijEinde = Cells(Rows.Count, "B").End(xlUp).Row


'loop nu alle rijen af en als het pagina-einde midden in een blok staat,
'dan moet deze verhuizen naar het begin van de blok

    For lRij = 25 To lRijEinde
        ActiveSheet.Rows(lRij).PageBreak = xlPageBreakNone
        If Cells(lRij, "B") = "" And Cells(lRij, "C") = "" And Cells(lRij, "D") = "" And Cells(lRij, "E") = "" And Cells(lRij, "F") = "" And Cells(lRij, "G") = "" And Cells(lRij, "H") = "" And Cells(lRij, "I") = "" Then
            lRijBreak = lRij

        End If
        If ActiveSheet.Rows(lRij).PageBreak <> xlPageBreakNone Then
           ActiveSheet.Rows(lRij).PageBreak = xlPageBreakNone
           ActiveSheet.Rows(lRijBreak).PageBreak = xlPageBreakManual
        End If
    Next