How do I add a line using VBA in Excel 2013

I want to add a line after the last row of my worksheet. Using a macro, I came up with the following:

    ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 1.6, 10906.4, 1138.4, _
        10908).Select
    Selection.ShapeRange.Line.Style = msoLineThickThin
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 3
    End With

How can I get the line to run from my first column to my last column after the last row?

Thanks

Jim