son sayfada alt bilgi çıkmasın

[ÖZLÜCE]

Merhaba

Sub Logo()

With Sheets("ANTET")
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.LeftFooter = "&""Tahoma,Normal""&10" & .Range("E23")
ActiveSheet.PageSetup.CenterFooter = "&""Tahoma,Normal""&10" & .Range("G23")
ActiveSheet.PageSetup.RightFooter = "&""Tahoma,Normal""&10" & .Range("I23")
End With
End Sub

yukarıdaki kod ile her sayfanın altbilgisine belirli hücrelerdeki bilgileri yazıyor.
fakat bu bilgilerin en son sayfada yazılmamasını istiyorum.

Yardımlarınız için şimdiden teşekkür ederim.

 

[ÖZLÜCE]

Sayın Hocalarım. istediğim şey imkansız ise lütfen birşeyler yazın.