Soru Otomatik sayfa sonu ekleme

[msoysarac38]

arkadaşlar merhaba elimde 2500 satırlık bir tablo var. a sütünunda sıra no alanı 1 den başlayıp farklı saylarda bitip tekrar 1 başlıyor. bu belgeyi sıra no her 1 den başladığında sayfa sonu eklemek istiyorum. Bu makro konusunda yardımcı olursanız teşekkür ederim.
Örnek her 1 den başladığında yeni sayfada çıktı almalıyım.
1
2
3
4
5
1
2
3
1
2
3
4
5
6
7

 

[hamitcan]

Böyle dener misiniz ?

Sub Sayfa_Sonu()
ActiveSheet.ResetAllPageBreaks
For i = 2 To [a65536].End(3).Row
If Cells(i, 1) = 1 Then
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i, 1)
End If
Next
End Sub

 

[msoysarac38]

çok teşekkür ederim. tamda istediğim şeydi.