Ayrıayrı sayfalardaki birçok tabloyu ayarı ayrı yazdırma alanına alan makro yazılımı yardımı

[seryapı]

Merhaba arkadaşlar.
Excel de hazırladığım bir tablom var. Bu tabloyu aynı sayfa içerisinde sonsuz adet makro ile kopyalaya biliyorum.Bütün tabloları kopyalarken excel vba makro ile yazdırma alanı seçip tabloları ayrı ayrı a4 kagıdında yazdırmak istiyorum.
Bunun için bir makro yazılımı yapmaya çalıştım.
Bu tablolar birçok Excel sayfasında oluşturula biliyor.İlk ÖRNEK SAYFA yazdırma alanını topluca tablolarını seçe bildiğim halde diğer sayfa içindeki tabloları tamamını secemiyorum yani tabloların ya üc yada ilkini secerek çıkıyor.
Benim yapmaya çalıştığım bütün sayfalardaki tabloları ayrı ayrı sayfa isteğime göre seçmesi ve yazdırma alanının belirlenmesi ve seçılmesi.
Yapmaya çalıştığım makro örneğini aşağıya yazdım. Ama bahsettiğim hataları gideremedim bu konuda yardımlarınızı bekliyorum.

sub beni_yaz()
ActiveSheet.Unprotect s
ssat = Sheets(ActiveSheet.Name).Cells(65536, 10).End(3).Row

Rem yazdırma alanını belirle
solüst = "$B$1"
sağalt = Cells(ssat + 3, 21).Address
alan = solüst & ":" & sağalt
ActiveSheet.PageSetup.PrintArea = alan
ActiveSheet.Protect s
Application.ScreenUpdating = True
End sub