运行时错误13 - 类型不匹配

Question

我设置此代码以识别列中的字符，并将该列的内容拆分为该字符所在的行数。它已经工作了一段时间，但现在我收到了运行时错误。我试图调试代码，看起来粗体线是导致问题的原因。有没有人知道如何解决这类问题？

Sub splitByColB()
    Dim r As Range, i As Long, ar
    Set r = Worksheets("SheetNAme").Range("H999999").End(xlUp)
    Do While r.Row > 1
        ar = Split(r.Value, ";")
        If UBound(ar) >= 0 Then r.Value = ar(0)
        For i = UBound(ar) To 1 Step -1
            r.EntireRow.Copy         '<------------ Line causing problem
            r.Offset(1).EntireRow.Insert
            r.Offset(1).Value = ar(i)
        Next
        Set r = r.Offset(-1)
    Loop
End Sub