Eu tenho os seguintes dados no excel:

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

com cada linha, representando uma linha e em uma célula.

Gostaria de convertê-lo para:

a
b
c
d
e
f
g
h
i

Estou usando a macro a seguir, mas não consigo obter o tamanho automático para fazer uma inserção, em vez de substituir os valores das células. Qualquer ajuda é 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