makro ile yazdırma alanı belirleme

[abufkes]

Merhaba saygıdeğer arkadaşlar,
Muhasebe programından aktardığım 1000 sayfalık bir dosyam var,
"Ara Toplam" kısmılarının, sayfaların sonuna gelmesini istiyorum,
sayfa sonu önizlemede , mavi çizgiyi kaydırarak elle yapılıyor lakin çok vakit alıyor.
Yardımlarınızı bekliyorum
Saygılarımla

 

[hamitcan]

Sub aratoplam_kadar_sayfa()
sayfalari_sil
b = 1
    For i = 1 To [a65536].End(3).Row
        If Cells(i, "A") = "ARA TOPLAM" Then
            k = k + 1
            s = i
            Sheets.Add: ActiveSheet.Name = k
            Sheets("Sayfa1").Range("a" & b & ":" & "b" & s).Copy Sheets(k).[a1]
            b = s + 1
        End If
        Sheets("Sayfa1").Select
    Next
End Sub
Sub sayfalari_sil()
    On Error Resume Next
    Application.DisplayAlerts = False
        For i = Sheets.Count To 1 Step -1
            If Sheets(i).Name <> "Sayfa1" Then Sheets(i).Delete
        Next
    Application.DisplayAlerts = True
End Sub

 

[abufkes]

Sutun sayısı

Hamit Bey sağolun
Lakin başka bir "sayfa1" e uygulayınca bu makroyu, neden sadece 2 sutunu alıyor ,yazdırma alanına?

 

[hamitcan]

Ben sadece veri gördüğüm iki sütunu(a,b)aldım.