Find string in column and paste corresponding row into other sheet

Or maybe like this.

Sub Use_Union()
    Dim lr As Long, c As Range
    Application.ScreenUpdating = False
    lr = Sheets("SourceData").Cells(Rows.Count, 1).End(xlUp).Row
    With Sheets("SourceData")
        .AutoFilterMode = False
        .Range("A1:A" & lr).AutoFilter field:=1, Criteria1:="11-11-222"
        For Each c In .Range("A2:A" & lr).SpecialCells(12)
            .Application.Union(c, c.Offset(, 1), c.Offset(, 3)).Copy Sheets("Parts").Cells(Rows.Count, "A").End(xlUp)(2)
        Next c
        .AutoFilterMode = False
    End With
    Application.ScreenUpdating = True
End Sub