Turn multiple lines in one cell into multiple rows

[Joe B]

I'm sorry if there is a thread like this, but I have looked at a lot of thread and none of them have worked for me.

I have two columns. the first column has names and the second column has information separated by a line break (Alt + Enter).

It would look something like this:

A1= Joe B1= "asdf
fdfsf
fsfsfgds"
A2= Sally B2= "fref
grewgwe
grr"

My goal is to turn this information into a table with each line being a separate cell.

Joe asdf
Joe fdfsf
Joe fsfsfgds
Sally fref
Sally grewgwe
Sally grr

Can anyone help me on this? Thanks!

 

[Warship]

try

Sub n()
    Dim shSource As Worksheet
    Dim shDestin As Worksheet
    Dim c As Variant, i As Integer
    Dim LR As Long, r As Long, L As Long
    Set shSource = Sheets("Sheet1")
    Set shDestin = Sheets("Sheet2")
    LR = shSource.Cells(Rows.Count, "A").End(xlUp).Row
    For r = 1 To LR
        c = Split(Range("B" & r), Chr(10))
        For i = 0 To UBound(c)
            L = L + 1
            shDestin.Cells(L, 1) = shSource.Range("A" & r)
            shDestin.Cells(L, 2) = c(i)
        Next i
    Next r
End Sub