Converting cells with ;-separated values into vertical list

Sub atest()
Dim LR As Long, i As Long, X
Columns("A").SpecialCells(xlCellTypeBlanks).Delete shift:=xlShiftUp
LR = Range("A" & Rows.Count).End(xlUp).Row
Columns("B").Insert
For i = 1 To LR
    If InStr(Range("A" & i).Value, ";") <> 0 Then
        X = Split(Range("A" & i).Value, ";")
        Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(X) + 1).Value = Application.Transpose(X)
    Else
        Range("B" & Rows.Count).End(xlUp).Offset(1).Value = Range("A" & i).Value
    End If
Next i
Columns("A").Delete
Range("A1").Delete shift:=xlShiftUp
End Sub

Sub atest()
Dim LR As Long, i As Long, j As Long, X
For j = 1 To 18
    LR = Cells(Rows.Count, j).End(xlUp).Row
    For i = 1 To LR
        If Cells(i, j).Value <> "" Then
            If InStr(Cells(i, j).Value, ";") <> 0 Then
                X = Split(Cells(i, j).Value, ";")
                Cells(Rows.Count, j + 18).End(xlUp).Offset(1).Resize(UBound(X) + 1).Value = Application.Transpose(X)
            Else
                Cells(Rows.Count, j + 18).End(xlUp).Offset(1).Value = Cells(i, j).Value
            End If
        End If
    Next i
Next j
End Sub