in neue Mappe ab Zeile 2 einfügen VBA

Sub MultiSuchetext2(strSearch As String)
Dim wks As Worksheet
Dim rngFind As Range
Dim lngRow As Long
Dim strFind As String
Dim wb As Workbook
Set wb = Workbooks.Add(1)
For Each wks In ThisWorkbook.Worksheets
If wks.Name <> "Start" Then
wks.Activate
If wks.Name <> "Daten" Then
wks.Activate
Set rngFind = wks.Cells.Find("*" & strSearch & "*")
If Not rngFind Is Nothing Then
strFind = rngFind.Address
Do
lngRow = lngRow + 1
wks.Range(wks.Cells(rngFind.Row, 1), _
wks.Cells(rngFind.Row, 14)).Copy _
wb.Sheets(1).Cells(lngRow, 1)
Set rngFind = wks.Cells.FindNext(After:=rngFind)
If rngFind.Address = strFind Then Exit Do
Loop
End If
End If
End If
Next wks
ThisWorkbook.Sheets("Start").Select
wb.Activate
End Sub