Is there a way to use VBA code to take data in a cell and create a new row (TXT to ROW?)

Great suggestion protonLeah!

Mustangs, you could also use the VBA split function to get each employee number on a unique row:

Sub myMacro()

    Dim Rng As Range, c As Range
    Dim cLines As Variant
    Dim i As Long, j As Long
    Dim count As Long

    With Sheet1
        Set Rng = .Range(.Range("B2"), .Range("B2").End(xlDown))
        lRows = Rng.Rows.count
        For Each c In Rng.Cells
            cLines = Split(c.Value, vbLf)
            count = count + UBound(cLines) + 1
        Next c
        For i = 1 To count
            cLines = Split(Rng.Cells(i, 1).Value, vbLf)
            For j = LBound(cLines) To UBound(cLines)
                If j = 0 Then
                    Rng.Cells(i, 1) = CLng(cLines(j))
                Else
                    .Rows(Rng.Cells(i + j, 1).Row).Insert Shift:=xlDown
                    Rng.Cells(i + j, 1) = CLng(cLines(j))
                End If
            Next j
        Next i
    End With
    Set Rng = Nothing

End Sub