セル間に線を引くには、RangeのLeft, Top, Width, Height が利用できます。

　以下のマクロは、アクティブシートのセルA1の値を線開始行とし、セルA2の
値を線終了行としてA列の真中に線を引きます。

Sub Draw_Line()

    Dim iStartRow As Long
    Dim iEndRow   As Long
    
    iStartRow = Range("A1").Value
    iEndRow = Range("A2").Value

    With ActiveSheet.Range(Cells(iStartRow, "A"), Cells(iEndRow, "A"))
        fLeft = .Left + (.Width) / 2
        fHeight = .Top + .Height
        ActiveSheet.Lines.Add fLeft, .Top, fLeft, fHeight
    End With
    
End Sub