Как макросом провести фигуру-линию - из центра одной ячейки в центр другой ячейки

Sub Arrow()
    With Range(Cells(5, 2).Value)
        iBeginX = .Left + (.Offset(0, 1).Left - .Left) / 2
        iBeginY = .Top + (.Offset(1, 0).Top - .Top) / 2
    End With
    With Range(Cells(5, 3).Value)
        iEndX = .Left + (.Offset(0, 1).Left - .Left) / 2
        iEndY = .Top + (.Offset(1, 0).Top - .Top) / 2
    End With
    With Shapes.AddLine(iBeginX, iBeginY, iEndX, iEndY).Line
        .ForeColor.RGB = RGB(50, 0, 128)
        .EndArrowheadLength = msoArrowheadLong
        .EndArrowheadStyle = msoArrowheadStealth
        .EndArrowheadWidth = msoArrowheadWide
    End With
End Sub

Sub Arrow()
    With ActiveSheet
        If .Shapes.Count Then .Shapes(1).Delete
        With .Range(Cells(5, 2).Value)
            iBeginX = .Left + (.Offset(0, 1).Left - .Left) / 2
            iBeginY = .Top + (.Offset(1, 0).Top - .Top) / 2
        End With
        With .Range(Cells(5, 3).Value)
            iEndX = .Left + (.Offset(0, 1).Left - .Left) / 2
            iEndY = .Top + (.Offset(1, 0).Top - .Top) / 2
        End With
        With .Shapes.AddLine(iBeginX, iBeginY, iEndX, iEndY).Line
            .ForeColor.RGB = RGB(0, 0, 0)
            .EndArrowheadLength = msoArrowheadLong
            .EndArrowheadStyle = msoArrowheadStealth
            .EndArrowheadWidth = msoArrowheadWide
            .Weight = 1.5
        End With
    End With
End Sub

Range(Cells(5, 2).Value)

Range(Cells(5, 2),Cells(5, 2))

     For I = .Shapes.Count To 1 Step -1
          S = .Shapes(I).Name
          If InStr(S, "Line") > 0 Or InStr(S, "Прямая") > 0 Then .Shapes(I).Delete
        Next

Range(Cells(5,2)) или Range([B5]) или Range(Range("B5"))