Zellen die ein "J" enthalten in einen Worksheet kopieren

Sub Excel_FALCON_XYZ()

'Und zwar habe ich 5 Worksheets
'(Serie; Fertigung; Entwicklung; Test; Sonstiges)
'in denen die Spalte D den Wert J; ; N haben kann.
'Nun möchte ich die Zellen A:B und E der entsprechenden Zeile,
'die ein J enthält, in einen neuen WS Gesamt kopieren.
'In den zu kopierendenWS sollen ab der Zelle B15 der WS Name und
'dann die kopierten Zellen eingefügt werden.

  Const c_GES_Z_ABZEILE = 15
  Const c_GES_SP_BLTNAME = 2
  Const c_GES_SP_VON_A = 3
  Const c_GES_SP_VON_B = 4
  Const c_GES_SP_VON_E = 5
  
  Dim QBlts As Variant
  QBlts = Array(Serie, Fertigung, Entwicklung, Test, Sonstiges)
  
  Dim ws As Worksheet, wsz As Worksheet
  Dim lRows As Long, lZeile As Long, b As Long, z As Long
  
  Set wsz = ActiveWorkbook.Worksheets(Gesamt)
  lZeile = wsz.Cells(wsz.Rows.Count, c_GES_SP_BLTNAME).End(xlUp).Row
 ->alte Ausgabe löschen
  wsz.Range(wsz.Cells(c_GES_Z_ABZEILE, c_GES_SP_BLTNAME), _
            wsz.Cells(lZeile, c_GES_SP_VON_E)) = 
 ->Erste Eintragszeile -1 setzen
  lZeile = c_GES_Z_ABZEILE - 1

  For b = LBound(QBlts) To UBound(QBlts)
    Set ws = ActiveWorkbook.Worksheets(QBlts(b))
    lRows = ws.UsedRange.Rows.Count + ws.UsedRange.Row - 1
    For z = 1 To lRows
     ->J in Spalte D?
      If ws.Cells(z, 4).Value = J Then
       ->Werte in Gesamt eintragen
        lZeile = lZeile + 1
        wsz.Cells(lZeile, c_GES_SP_BLTNAME).Value = ws.Name
        wsz.Cells(lZeile, c_GES_SP_VON_A).Value = ws.Cells(z, 1).Value->A
        wsz.Cells(lZeile, c_GES_SP_VON_B).Value = ws.Cells(z, 2).Value->B
        wsz.Cells(lZeile, c_GES_SP_VON_E).Value = ws.Cells(z, 5).Value->E
      End If
    Next
  Next
AUFRAEUMEN:
  Set ws = Nothing: Set wsz = Nothing
End Sub

Sub Excel_ImpactAnalyse()

'Und zwar habe ich 5 Worksheets
'(Serie; Fertigung; Entwicklung; Test; Sonstiges)
'in denen die Spalte C den Wert J; ; N haben kann.
'Nun möchte ich die Zellen A:B und D der entsprechenden Zeile,
'die ein J enthält, in einen neuen WS Gesamt kopieren.
'In den zu kopierendenWS sollen ab der Zelle B15 der WS Name und
'dann die kopierten Zellen eingefügt werden.

 Const c_GES_Z_ABZEILE = 15
 Const c_GES_SP_BLTNAME = 2
 Const c_GES_SP_VON_A = 3
 Const c_GES_SP_VON_B = 4
 Const c_GES_SP_VON_D = 5
 
 Dim QBlts As Variant
 QBlts = Array(Serie_und_ Fertigung, Software, Mechanik, Hardware, Sonstiges)
 
 Dim ws As Worksheet, wsz As Worksheet
 Dim lRows As Long, lZeile As Long, b As Long, z As Long
 
 Set wsz = ActiveWorkbook.Worksheets(Uebersicht)
 lZeile = wsz.Cells(wsz.Rows.Count, c_GES_SP_BLTNAME).End(xlUp).Row
->alte Ausgabe löschen
 wsz.Range(wsz.Cells(c_GES_Z_ABZEILE, c_GES_SP_BLTNAME), _
      wsz.Cells(lZeile, c_GES_SP_VON_D)) = 
->Erste Eintragszeile -1 setzen
 lZeile = c_GES_Z_ABZEILE - 1

 For b = LBound(QBlts) To UBound(QBlts)
  Set ws = ActiveWorkbook.Worksheets(QBlts(b))
  lRows = ws.UsedRange.Rows.Count + ws.UsedRange.Row - 1
  For z = 1 To lRows
  ->J in Spalte C?
   If ws.Cells(z, 3).Value = J Then
   ->Werte in Gesamt eintragen
    lZeile = lZeile + 1
    wsz.Cells(lZeile, c_GES_SP_BLTNAME).Value = ws.Name
    wsz.Cells(lZeile, c_GES_SP_VON_A).Value = ws.Cells(z, 1).Value->A
    wsz.Cells(lZeile, c_GES_SP_VON_B).Value = ws.Cells(z, 2).Value->B
    wsz.Cells(lZeile, c_GES_SP_VON_D).Value = ws.Cells(z, 4).Value->D
   End If
  Next
 Next
AUFRAEUMEN:
 Set ws = Nothing: Set wsz = Nothing
End Sub