Zellen mit Inhalt in Ziel-ws kopieren

Function AnzahlZeilen(Blatt As Worksheet) As Long
AnzahlZeilen = WorksheetFunction.CountA(Blatt.Range("A:A"))
End Function

Sub Auswerten()
Dim wb As Workbook
Dim ws As Worksheet
Dim Pfad As String
Dim Datei As String
Dim ErgebnisZeile As Long
Dim ErgebnisSpalte As Long
Dim s As Long
Dim z As Long
Dim i As Integer
Set wb = ThisWorkbook
Set ws = wb.ActiveSheet
Application.ScreenUpdating = False
Set ws = ActiveWorkbook.Sheets.Add
ErgebnisZeile = 1
Pfad = "C:\Users\Name\Dateipfad\"
Datei = Dir(CStr(Pfad & "*.xl*"))
Do While Datei  ""
Set wb = Workbooks.Open(Pfad & Datei, False, True)
For z = 7 To wb.Sheets("Startexport_2022").UsedRange.Rows.Count
If Trim(CStr(wb.Sheets("Startexport_2022").Cells(z, 1).Value))  "" Then
For s = 1 To wb.Sheets("Startexport_2022").UsedRange.Columns.Count
ws.Cells(ErgebnisZeile, s).Value = _
wb.Sheets("Startexport_2022").Cells(z, s).Value
Next s
ErgebnisZeile = ErgebnisZeile + 1
'ErgebnisSpalte = ErgebnisSpalte
End If
Next z
wb.Close False 'nicht speichern
'Nächste Datei
Datei = Dir()
Loop
'Variablen aufräumen
'Set ws = Nothing
'Set wb = Nothing
n = AnzahlZeilen(Worksheets("Tabelle2"))
'Kopieren
Worksheets("Tabelle2").Select
'Auftrags-Nr
Range("A1" & z).Copy Worksheets("Tabelle1").Range("D7")  'Idee Nr1
'Prod-Nr
'Range("B1" & z).Copy Worksheets("Tabelle1").Range("B7")
'Fzg-Nr
'Range("C1" & Range("A1").End(xlDown)).Copy Worksheets("Tabelle1").Range("C7") 'Idee Nr2
Application.ScreenUpdating = True 'Das Bildschirm-Aktualisieren wieder einschalten
End Sub