IF Loop to Separate Names

Works like a charm.

Hate to be difficult but what if there are semicolons at the end sometimes?

For example sometimes it would look like:
456789 john; mary; bob;
343400 gary, frank;
230200 fisher; john; harry; ron;
545777 john

So the first three rows would make an extra row which would be blank but the last would not.

Code I'm using:

Option Explicit

Sub ParseByColumn()

'Split delimited column data into separate rows
'duplicate other column values as needed
Dim LR As Long, Rw As Long, Col As Long, MyVal As Long
Dim MyArr As Variant, LC As Long
Dim Titles As Long
'Application.ScreenUpdating = False

Titles = 8 - MsgBox("Does the data have titles in row1?", vbYesNo, "Include row1?")

'set column to evaluate:  1="A", 2="B", 3="C", etc...
    Col = 5

LR = Range("A" & Rows.Count).End(xlUp).Row

For Rw = LR To Titles Step -1
  'separated by commas
    If InStr(Cells(Rw, Col), ",") > 0 Then
       MyArr = Split(Cells(Rw, Col), ",")
  'separated by semicolons
    ElseIf InStr(Cells(Rw, Col), ";") > 0 Then
        MyArr = Split(Cells(Rw, Col), ";")

    End If
        
    Rows(Rw).Copy
    Rows(Rw + 1 & ":" & Rw + UBound(MyArr)).Insert xlShiftDown
    Cells(Rw, Col).Resize(UBound(MyArr) + 1).Value = _
        Application.WorksheetFunction.Transpose(MyArr)
Next Rw

'Cleanup appearance
    Cells.Columns.AutoFit
    Cells.Rows.AutoFit
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub