Sub StuffSplit(NamesAddress As String, DigitsAddress As String, DestinationAddress As String)
Dim a As Variant, i As Long, j As Long, counter As Long: counter = 0
For i = Range(DigitsAddress).Row To Range(DigitsAddress).Row + Range(DigitsAddress).Rows.Count
    a = Split(Cells(i, Range(DigitsAddress).Column).Value, ",")
    For j = LBound(a) To UBound(a)
        Cells(Range(DestinationAddress).Column + counter, Range(DestinationAddress).Row).Value = Cells(i, Range(NamesAddress).Column).Value
        Cells(Range(DestinationAddress).Column + counter, Range(DestinationAddress).Row + 1).Value = a(j)
        counter = 1 + counter
    Next
Next
End Sub

Sub SplitByName() ' Run this macro
    Call StuffSplit("A4:A5", "B4:B5", "D4")
End Sub