Formül olan ancak boş olan hücreleri yazdırmasın

[kontto]

Arkadaşlar, Sayfa1 de B,C,D,E sütunundan aşağıya doğru sürekli artan bilgilerim var, bende A sütununa =EĞER(B="";"";1) formülünü uygulayarak 10000 ninci satıra kadar formül uyguladım. Ancak benim giriş yaptığım veri sayısı henüz 40 adettir. Makro ile yazdır butonu oluşturdum, yazdır butonuna tıkladığım zaman formül olan ancak boş tüm sayfaları da yazdırıyor. Benim İstediğim yazdır butonuna bastığım zaman sadece veri girişi yaptığım satırları ve o satırların karşılığındaki sıra numaralarını da yazdırması yazdırması, lütfen yardım edin.
Örnek dosya gönderiyorum.

 

[Teoman06]

Böyle bir şey işinize yarar mı?

Sub AA()

x = Application.WorksheetFunction.Max(Range("A:A"))
y = Application.WorksheetFunction.Match(x, Range("A:A"), 1)
Sheets(2).PageSetup.PrintArea = Range("A1:E" & y).Address

End Sub

 

[kontto]

Sayın teoman internetin azizliğine uğradım on gündür sorun yaşıyorum. Verdiğiniz cevap için teşekkür ederim. Ama bu kodu kod sayfasına yazdığım ve bir buton eklediğim zaman sadece A1:E1 hücresini seçiyor başka bir şey yapmıyor. Yardımlarınızı bekliyorum.