duplicate rows based on value.

[flay]

Hello.
I have a code which goes trough a big database and checks for first 2 letters , if they answer a certain term they are getting replaced with certain integer ...
i want to duplicate the row which has "RE" as string in the first 2 letters and replace the "RE" to "821" and the duplicated row to "841"
Here is the code i have now..

Sub Swap()
    Dim i As Long, N As Long, v As Variant, frst As String
    Call deletes
    Application.ScreenUpdating = False
  
    N = Cells(Rows.Count, "A").End(xlUp).Row
  
    For i = 1 To N
        v = Cells(i, "A").Value
        If Len(v) >= 2 Then
            frst = Left(v, 2)
            If frst = "RE" Then
                Cells(i, "A").Value = Replace(v, "RE", "821")
            ElseIf frst = "NI" Then
                Cells(i, "A").Value = Replace(v, "NI", "801")
            ElseIf frst = "NF" Then
                Cells(i, "A").Value = Replace(v, "NF", "831")
            ElseIf frst = "NV" Then
                Cells(i, "A").Value = Replace(v, "NV", "571")
            End If
        End If
    Next i
End Sub

 

[flay]

up

 

[flay]

up