Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&, m
If Target.Column = 1 Then
Application.EnableEvents = 0
m = Split(Target, ";")
If UBound(m) > 0 Then
For i = 0 To UBound(m)
Cells(Target.Row + i, 1) = m(i)
Next
End If
Application.EnableEvents = -1
End If
End Sub