Ich bin erstaunt - für ein paar einmalige Arbeitsschritte die mit etwas gutem Willen in deutlich unter einer Minute per Hand erledigt werden können, fordert man hier "dringend Hilfe" an, das per Makro umzusetzen, und klatscht noch ein wenig unbrauchbaren VBA-code untendran.
hier ein paar Zeilen zum Erstellen der 4 Kopien, für die Filter musst du einen anderen Dummen finden.
Code: Alles auswählen
Sub Tabelle_kopieren
copy_names = array("DB1","DB2","DB3", "TB")
for i = 0 to ubound( copy_names() )
thisComponent.Sheets.copybyName("Tabelle1", copy_names( i ) , i+1 )
next
End Sub