Sichtbare Zellen (gefiltert und ausgeblendet) aus einem Workbook in ein neues Kopieren

Hallo zusammen,

bin noch grün im VBA und sehe den Wald vor lauter Bäumen nicht mehr. Kann mir bitte jemand die Augen öffnen...
Hab eine Tabelle gefiltert und Spalten ausgeblendet, diese Darstellung soll so mit VBA in eine neue Datei kopiert werden.

Die Tabelle ist umfangreich (hier wsQData), die Länge ist variabel

Dim wsData as Worksheet 'Quell - Daten
Dim wsNewReport as Worksheet 'Ziel -Daten

Mit verschiedenen Funktionen sind auf der Tabelle einige Zeilen herausgefiltert worden
gleichzeitig habe ich einige Spalten ausgeblendet (verschiedene VBA module)

Jetzt möchte ich genau diese Darstellung in eine neue Datei + neues Worksheet kopieren.
Also die ausgeblendeten Zeilen und Spalten sollen nicht kopiert werden.

Der MakroRecorder ergab so etwas:
Da gibt es aber eine Fehlermeldung in der letzten Zeile "Worksheet class" Fehler

ein weiterer Versuch war dies hier, aber auch ohneErfolg
Für jegliche Unterstützung wäre ich sehr dankbar!

Gruß
Floh

[Edit Biber] Auch Donnerstags Codetags [/Edit]

Sub CopySpecialCells1()
    Sheets("Tabelle1").Cells.SpecialCells(xlVisible).Copy Destination:=Sheets("Tabelle2").Range("A1")  
End Sub

Sub CopySpecialCells2()
    Dim Wks1 As Worksheet, Wks2 As Worksheet
    
    Set Wks1 = Sheets("Tabelle1")  
    Set Wks2 = Sheets("Tabelle2")  
    
    Wks1.Cells.SpecialCells(xlVisible).Copy Destination:=Wks2.Range("A1")  
End Sub

Sub CopySpecialCells3()
    Dim Wks1 As Worksheet, Wks2 As Worksheet, CopyRange As Range, ColCount As Long
    
    Set Wks1 = Sheets("Tabelle1")  
    Set Wks2 = Sheets("Tabelle2")  
    
   'Kopierbereich bis zur 1. Leerzeile/Leerspalte  
    Set CopyRange = Wks1.Range("A1").CurrentRegion  
    
   'Daten nach Ziel kopieren  
    CopyRange.SpecialCells(xlVisible).Copy Destination:=Wks2.Range("A1")  
 
    With Wks2
        'Letzte Spalte in Ziel ermitteln  
         ColCount = .Range("A1").CurrentRegion.Columns.Count  
    
        'Spaltenbreite automatisch anpassen  
        .Range(.Columns(1), .Columns(ColCount)).AutoFit
    End With
End Sub