Lines2Rows Macro breaks apart a cell based on a certain character, then inserts everything that is broken up into separate rows. Run from VBA, "Run Macro"

Lines2Rows Macro

Sub Lines2Rows()
    Dim rList As Range, rCell As Range
    Dim lRow As Long
    Dim vText As Variant
     
    Set rList = Range("B1", Range("B" & Rows.Count).End(xlUp)) ' list
    lRow = 1
    For Each rCell In rList
        If rCell <> "" Then
            vText = Split(rCell, ";")
            Range("H" & lRow).Resize(1 + UBound(vText)).Value = Application.Transpose(vText)
            lRow = lRow + UBound(vText) + 1
        End If
    Next rCell
End Sub