Guru do Excel e Power BI

Boa tarde.

Tenho uma planilha onde coloco uma quebra de página todas vez que o registro na coluna B altera.

Como poderia fazer no VBA para que isto se torne automático.

1 xxx we
1 xxx we
1 xxx we
1 xxx we
1 xxx we
1 xxx we
1 xxx we
2 yyy rr
2 yyy rr
2 yyy rr
2 yyy rr
2 yyy rr
2 yyy rr
2 yyy rr
3 zzz kk
3 zzz kk
3 zzz kk
3 zzz kk
3 zzz kk
3 zzz kk
3 zzz kk
4 a uu
4 a uu
4 a uu
4 a uu
4 a uu
4 a uu


Desde já agradeço a atenção

Boa tarde.
Supondo-se que seus códigos comecem em "B1"...
Sub insere_quebra_pagina()
On Error Resume Next

Application.ScreenUpdating = False


ActiveSheet.Range("b1").Select


Do While ActiveCell.Value <> ""

If ActiveCell.Value <> ActiveCell.Offset(-1).Value Then

ActiveSheet.HPageBreaks.Add before:=ActiveCell


End If

ActiveCell.Offset(1).Select

Loop
Application.ScreenUpdating = True
End Sub