split multiple semicolon separated values into new rows for multiple columns

Thank you again, I know this must be a pain, but now I'm getting a type mismatch error at the very beginning on the below line:

 U& = UBound(AR, 2):  If U < 3 Then Exit Sub