Bereich löschen | Herbers Excel-Forum

Servus
Mal wieder ein einfaches Problem welches mich in den Wahnsinn treibt.
Ich möchte in einem best. Tabellenblatt (rquelle) den Bereich unter Zeile 1 (Überschrift) löschen.
Bis dato habe ich das so gemacht
Sheets(rquelle).select
Sheets(rquelle).Range(Cells(2,1),Cells(zrow,zcol).Delete xlShiftUp
zrow und zcol sind die letzte Zeile und Spalte des Tabellenblattes.
leider brauche ich immer die Select Anweisung. Ohne diese = Fehler !
Normalerweise befinde ich mich NIE auf dem Tabellenblatt rquelle und möchte auch nicht auf dieses Tabellenblatt springen.
Hier gibt es sicher eine elegantere Lösung OHNE die Select Anweisung, vielleicht mit UsedRange und Offset?
Leider komm ich nicht drauf.
Ich hoffe ihr könnt mir weiterhelfen.
gruß
Thomas