Searching Values that Follow a Specific Format and Copy Rows to a New Sheet

Maybe:

Sub aviatecar()
Dim ws As Worksheet
Dim i As Long
Set ws = Sheets("Quote Summary")
Sheets.Add.Name = "Quote Summary(DHC-8)"
Sheets("Quote Summary(DHC-8)").Rows(1).Value = ws.Rows(1).Value
With ws
    For i = 2 To .Range("A" & Rows.Count).End(3).Row
        If Left(.Range("A" & i), 1) = 8 And Right(Left(.Range("A" & i), 8), 1) = "-" Then
            .Rows(i).Copy Sheets("Quote Summary(DHC-8)").Range("A" & Rows.Count).End(3)(2)
        End If
    Next i
End With
End Sub

Hello John:

Thank you for your response.

But this code does not do what I want it to do.

-The code created a new sheet on the left side of the "Quote Summary" sheet but I want the new sheet to be at the end of the sheet tabs.

-This code does not return the data with the format specified below.

if cell A2 has the format " 8xxxxxxx-"
(Before "-" : 1) all number; 2) starting at 8; 3) 8 digits ; After "-" : no limitation),
then copy row 2 to the next available row on the sheet "Quote Summary(DHC-8)".


Thank you and I am looking forward to your reply,

Chris

Try:

Sub aviatecar()
Dim ws As Worksheet
Dim i As Long
Set ws = Sheets("Quote Summary")
Sheets.Add.Name = "Quote Summary(DHC-8)"
Sheets("Quote Summary(DHC-8)").Rows(1).Value = ws.Rows(1).Value
Sheets("Quote Summary(DHC-8)").Move After:=Sheets(Sheets.Count)
With ws
    For i = 2 To .Range("A" & Rows.Count).End(3).Row
        If Right(Left(.Range("A" & i), 9), 1) = "-" Then
        If IsNumeric(Left(.Range("A" & i), 8)) Then
        If Left(.Range("A" & i), 1) = 8 Then
            .Rows(i).Copy Sheets("Quote Summary(DHC-8)").Range("A" & Rows.Count).End(3)(2)
        End If
        End If
        End If
    Next i
End With
End Sub

Works Like a Charm!

Thank you John!

Chris

You're welcome, Chris. Thanks for the feedback.