Option Explicit

Sub splitter()

    Dim arr
    Dim rng As Range
    Set rng = Range("A1").CurrentRegion
    Set rng = rng.Offset(1, 0).Resize(rng.Rows.Count - 1, rng.Columns.Count)
    Dim rngInput As Range
    Dim intRow As Integer
    Dim item3$, item1$
    Dim elem
    Set rngInput = ActiveSheet.[e2]
    rngInput.Resize(1, 3).value = Array("1", "2", "3")
    For intRow = 1 To rng.Rows.Count
        arr = Split(rng.Cells(intRow, 2).value, ";")
        item1 = rng.Cells(intRow, 1).value
        item3 = rng.Cells(intRow, 3).value
        For Each elem In arr
            Set rngInput = rngInput.Offset(1, 0)
            rngInput.value = item1
            rngInput.Offset(0, 1) = elem
            rngInput.Offset(0, 2) = item3
        Next elem
    Next intRow
End Sub