Worksheets("Tabellenblatt1").ListObjects("Tabelle1").databodyrange wäre die Lösung, um die Überschrift mit einzubinden.
ist die Tabelle leer, hat Listrows.count den Wert 0