Hallo Kathi, hab grad nur Excel XP/2002 zur Verfügung, dort steht folgendes Beispiel in der Hilfe:
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select
Das sollte eigentlich genau das sein, was du brauchst. Mit Offset wird der Bereich um eine Zeile nach unten verschoben, mit Resize wird der Bereich um eine Zeile reduziert um eine Leerzeile am unteren Ende zu vermeiden.