преобразование записи с перечислениями на отдельные записи (VBA Excel)

Задача: избавиться от 2,3 в столбце, путем "разнесения" одной строки на 2, для последующей обработки в БД

Public Sub trim23()
Dim str_1 As Range
Dim a As Integer
For i = 1 To 327
Sheets(1).Select
Set str_1 = Range(Cells(i, 1), Cells(i, 7))
str_1.Select
a = a + 1
Selection.Copy Sheets(2).Cells(a, 1)
If (Sheets(2).Cells(a, 7) = "2,3") Then
Sheets(2).Cells(a, 7) = 2
a = a + 1
Selection.Copy Sheets(2).Cells(a, 1)
Sheets(2).Cells(a, 7) = 3
End If
Next
End Sub