Guten Morgen,
habe folgendes Makro zusammengebastelt, für das Löschen der
aktiven Tabelle.
Dim z As Long
Dim sh
sh = ActiveSheet.Name
If sh("A3") "" Then
With Sheets(sh)
z = Worksheets(sh).End(xlDown).Row
.Range(sh, .Cells(z, 38)).Clear
End With
End If
gruß kurt