スキルアップ・問題解決なら、モーグにおまかせ！

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