Run Time Error When Copying Rows Based On Word

Here is my table which is just a test sample of the larger table, but in the end, it is column 1 I want to base the new ws on.

Before Macro
AY *AB1UnitCount2533210431 LGR SQ10584631 LGR SQ7726 Excel tables to the web >> Excel Jeanie HTML 4

The code below works fine through the first instance of the match and adds a new ws based on the name, but when it gets to the second match the macro tries to add the ws all over again and I get a run time error 1004 which states you can not add a ws and name it the same as one that already exist. I only have one sheet in my wb titled "AY". How can I also have the two column headers transfer to the new ws?


Public Sub CopyUnit()

Dim N As String
Dim i As Long
Dim ws As Worksheet
Set ws = Sheets("AY")

N = Worksheets("PAS Codes").Range("L14").Value

For i = Range("A65334").End(xlUp).Row To 1 Step -1

With ws
If Cells(i, 1).Value = N Then
.Rows(i).Copy
Sheets.Add.Name = N
Rows("1:1").Select
ActiveSheet.Paste
End If

End With

Next i

Application.CutCopyMode = False

End Sub
After Macro
31 LGR SQ *AB1UnitCount231 LGR SQ7331 LGR SQ10 Excel tables to the web >> Excel Jeanie HTML 4