Tengo los siguientes datos en Excel:

a, b, c
d
e
f, g
h
i

con cada fila, representando una fila y en una celda.

Me gustaría convertirlo a:

a
b
c
d
e
f
g
h
i

Estoy usando la siguiente macro, pero no puedo hacer que el tamaño automático realice una inserción, en lugar de anular los valores de las celdas. Cualquier ayuda es apreciada.

    Sub SplitCells()


    Dim i As Long



    With Application

        .Calculation = xlCalculationManual

        .ScreenUpdating = False




    For i = 1 To Selection.Rows.Count

        Dim splitValues As Variant


        splitValues = split(Selection.Rows(i).Value, ",")

        Selection.Rows(i).Resize(UBound(splitValues) - LBound(splitValues) + 1).Value = Application.Transpose(splitValues)

    Next i



        .Calculation = xlCalculationAutomatic

        .ScreenUpdating = True

    End With

End Sub