Hallo liebe Community,

ich hoffe ihr könnt mir bei meinem Problem weiterhelfen!?

Ich habe eine intelligente Tabelle (Namens "Produkte") auf dem Tabellenblatt1 ("Tabelle1").
Die Tabelle "Produkte" hat immer mal wieder eine unterschiedliche Anzahl an Zeilen.
Aus dieser int. Tabelle "Produkte" möchte ich nun die Daten aus diversen Spalten kopieren, aber ohne, dass die Spaltenüberschriften mit kopiert werden. Ziel der Kopie soll auf dem Tabellenblatt 2 ("Tabelle2") sein zu einer "nicht intelligenten" Tabelle.
Auf Tabelle2 sind die Überschriften der Spalten anders.
Von der int. Tabelle "Produkte" sollen die Spalten wie folgt zur Tabelle2 kopiert werden.

Sheet = Tabelle1 | Sheet = Tabelle2
Spalte 1 --> Spalte 1 (erste Zelle ist A2)
Spalte 2 --> Spalte 3 (erste Zelle ist C2)
Spalte 3 --> Spalte 4 (erste Zelle ist D2)
Spalte 4 --> Spalte 2 (erste Zelle ist B2)
Spalte 5 --> Spalte 5 (erste Zelle ist E2)
(und weitere)

Zusätzlich ist das Problem, dass die intelligente Tabelle einen Filter aktiv hat. Dann sollte logischerweise nur das kopiert werden, was auch angezeigt/gefiltert wurde.

Meine VBA-Kenntnisse reichen leider dafür überhaupt nicht aus (um nicht zusagen, es sind leider so gut wie keine vorhanden) und würde mich sehr freuen, wenn ihr mir helfen könntet!?

Grüße
Josh