Дублирование строки при условии

Sub FOR_V2G()
Dim A() As String
M = 2
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If InStr(1, Cells(i, 1).Value, ",") <> 0 Then
A() = Split(Cells(i, 1).Value, ",")
For j = 0 To UBound(A)
 Cells(M, 4).Value = A(j)
 Cells(M, 5).Value = Cells(i, 2).Value
 M = M + 1
Next
Else
Cells(M, 4).Value = Cells(i, 1).Value
Cells(M, 5).Value = Cells(i, 2).Value
M = M + 1
End If
Next
 
End Sub

Private Sub Test1()
    Dim ws As Worksheet, r1&, r2&, a As Variant
    Set ws = ActiveSheet
    
    Application.ScreenUpdating = False
    For r1 = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row To 1 Step -1
        a = Split(ws.Cells(r1, 1), ",")
        For r2 = 0 To UBound(a)
            If r2 > 0 Then
               ws.Rows(r1 + r2).Insert
               ws.Hyperlinks.Add ws.Cells(r1 + r2, 2), ws.Cells(r1, 2)
            End If
            ws.Hyperlinks.Add ws.Cells(r1 + r2, 1), "mailto:" & a(r2), , , a(r2)
        Next
    Next
    Application.ScreenUpdating = True
End Sub

Private Sub Test2()
    Dim ws As Worksheet, r1&, r2&, a As Variant
    Set ws = ActiveSheet
    
    Application.ScreenUpdating = False
    For r1 = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row To 1 Step -1
        a = Split(ws.Cells(r1, 1), ",")
        If UBound(a) > 0 Then
           ws.Rows(r1).Copy
           ws.Rows(r1 + 1).Resize(UBound(a)).Insert
           For r2 = 0 To UBound(a)
               ws.Hyperlinks.Add ws.Cells(r1 + r2, 1), "mailto:" & a(r2), , , a(r2)
           Next
        End If
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub