Split Rows in multipe columns - VBA

there are 3 names in cell E2, there are 4 values in cell I2, why ?

try this code

Sub a()
r = 2
While Cells(r, 1) <> ""
  BPC = Cells(r, "E")
  BPCarr = Split(BPC, vbLf)
  n = UBound(BPCarr)
  If n > 0 Then
    Rows(r + 1 & ":" & r + n).Insert
    For col = 5 To 20
      arr = Split(Cells(r, col), vbLf)
      For r1 = 0 To UBound(arr)
         Cells(r + r1, col) = arr(r1)
      Next
    Next
    r = r + n + 1
  Else
    r = r + 1
  End If
  
Wend
End Sub