Shapeを用いて線を引くときにはAddLinesメソッドを用います。

サンプルでは、セルB2からJ2まで線を描画しますが、Shapeの
位置決めにはセルの位置関係（Left、Topプロパティーなど）
を基準にしています。

Private Sub CommandButton1_Click()

    Dim MyLine As Shape
    Dim rngStart As Range, rngEnd As Range
    Dim BX As Double, BY As Double, EX As Double, EY As Double

    'Shapeを配置するための基準となるセル
    Set rngStart = Range("B2")
    Set rngEnd = Range("J2")

    'セルのLeft、Top、Widthプロパティーを利用して位置決め
    BX = rngStart.Left
    BY = rngStart.Top
    EX = rngEnd.Left + rngEnd.Width
    EY = rngEnd.Top

    'Shapeの描画
    Set MyLine = Sheet1.Shapes.AddLine(BX, BY, EX, EY)

End Sub