Hallo Julia,

hier eine Anleitung Zumzum - selbst schreiben, die auch in nahezu allen Varianten funktioniert.
Hattu Fragen, dann kannst du sicher wieder melden.

LG

Sub Makro1()
'Vorgaben
'ab Tabelle 3
'in Spalte E gebe ich in jeder Tabelle Zahlen in verschiedenen Zeilen ein welche ich danach filtere
'dann zeigt es mir quasi nur mehr das an was ich in Spalte E gefiltert habe
'dies mache ich dann in jeder Tabelle (Ab Tabelle 3)
'
'Makro ausführen welches die gefilteren Zellen in Tabelle 3 kopiert,
'also alles was unter der Zeile A3 (bis E3) steht
'und dies in Tabelle 2 einfügen
'
'genau das selbe mit Tabelle 4 geschehen, dies in Tabelle 2 unterhalb den Eintrag welcher von Tabelle 3 kam
'dann dasselbe mit Tabelle 5 usw

'***********************************************************************************************************

'Codeaufbau
'Worksheet zum Durchsuchen
Dim wsF As Worksheet
'ein paar Range-Objects zu Vergleichen
Dim rngF As Range, rngA As Range, rngR As Range, rngTo As Range, c As Range

   'durch alle Blätter
   For Each wsF In Sheets
      'nur wenn nicht auszuschließende Tabelle
      If wsF.Name <> "Tabelle1" And wsF.Name <> "Tabelle2" Then
         'nur wenn gefiltert (.AutoFilterMode) und nicht mehr Spalten als bis "E" (wsF.AutoFilter.Filters.Count)
            'letzte gefilterte Spalte(wsF.AutoFilter.Range)
               'wenn ein Filter gesetzt(If .On Then)
                  'ist "E" im Filter(.AutoFilter.Range.Address, "E")
                     'alle sichtbaren Zellen(.AutoFilter.Range.SpecialCells)
                     'durch alle Bereiche
                        'jede Zeile betrachten
                           'wenn Zeile > 3
                              'nächste freie Zielzelle in Tabelle2
                              'und
                              'die ersten 5 Zellen dieser Zeile dort hin kopieren
                              
                        'nächste Zeile
                     'nächster Bereich
                  'End If
               'End If
            '
         '
      End If
   Next wsF

End Sub