Leere Zeilen beim Drucken automatisch ausblenden - mit VBA Code Excel

Hallo zusammen,
folgendes Szenario:

z.B. im Bereich A1:Z2 sind feste Daten (Kopfzeilen bzw. Kopfbereich)
Im Bereich A3:Z100 sind variable Daten. Zeile 101 sind die Summen. Es kann passieren, dass z.B. zwischen Zeile 50 und 100 keine Daten vorkommen. Natürlich kann man diese Daten mit dem Filter ausblenden - aber leider gibt es manchmal Fälle (Hektik, Stress etc), wo man vergisst, diese Zeilen auszublenden und man hat schnell auf dem Druckknopf gedruckt und dann kommen schon ein paar mehr Blätter raus, die man nicht wollte (einfache Papierverschwendung).

Hat jemand eine Idee, wie so eine Tabellenblatt-Code aussehen kann. Ich habe im Netz Macros gefunden, aber die Voraussetzung dafür ist, dass dieser Markro auch gestartet wird (das kann man aber direkt mit dem Filter machen).

Vielen Dank im Voraus

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    FilterEmpty
End Sub

Sub FilterEmpty()
    Dim ws As Worksheet, dt As ListObject
    Set ws = Worksheets(1)
    Set dt = ws.ListObjects("MeineTabelle")  
    dt.Range.AutoFilter Field:=1, Criteria1:="<>"  
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    FilterEmpty
End Sub

Sub FilterEmpty()
    Dim ws As Worksheet, dt As ListObject
    Set ws = Worksheets(1)
    Set dt = ws.ListObjects("2014")  
    dt.Range.AutoFilter Field:=1, Criteria1:="<>"  
End Sub

    Set dt = ws.ListObjects("2014.xls")  

    Set dt = ws.ListObjects("Januar")  

Set dt = ws.ListObjects(1) 

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    FilterEmpty
End Sub

Sub FilterEmpty()
  Dim ws As Worksheet, dt As ListObject  
  for i = 1 to 3
    Set ws = Worksheets(i)
    Set dt = ws.ListObjects(1)
    dt.Range.AutoFilter Field:=1, Criteria1:="<>"  
  Next
End Sub