Find string in column and paste corresponding row into other sheet

solveddddd

Jolivanes that worked for me.

Untested...

Option Explicit

Sub CopyRowToAnotherSheet()
Dim strFind As String
Dim NextRow As Long
Dim rngFound As Range
Dim wsSource As Worksheet
Dim wsResult As Worksheet
Dim CL as Variant

'Reset Result sheet
Sheets("Parts").Rows("2:" & Rows.Count).ClearContents
Application.ScreenUpdating = False

'Main Code

Set wsSource = Sheets("SourceData")
Set wsResult = Sheets("Parts")
Set rngFound = wsSource.Range("A1:A15000")

NextRow = wsResult.Range("A" & Rows.Count).End(xlUp).Row
strFind = "11-11-222"
For each CL in RngFound

If instr(CL.Value, "|" & SrtFind) > 0 then

NextRow = NextRow + 1
rngFound.EntireRow.Copy wsResult.Range("A" & NextRow)

end if

Next CL
End Sub