Option Explicit
Sub Bsp()
Dim wksDest As Excel.Worksheet
Dim wks As Excel.Worksheet
Dim rng As Excel.Range
Set wksDest = Worksheets("Test")
For Each wks In Worksheets
Select Case wks.Name
Case "Montag", "Dienstag", "Test"
Case Else
Call wks.Range("B1:F1").AutoFilter(1, "K*")
With wks.AutoFilter.Range
On Error Resume Next
Set rng = Nothing
Set rng = .Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible)
On Error GoTo 0
End With
Call wks.Range("B1:F1").AutoFilter
If rng Is Nothing Then
Else
With wksDest
Call rng.Copy(Destination:=.Cells(.Rows.Count, "A").End(xlUp).Offset(1))
End With
End If
End Select
Next
End Sub