Drawig Freeform shapes using VBA

I created a Freeform shape while recording a macro. When I try to use that macro I often run into an error depending on the values used.
In the code below I have two parts. The first is the lines recorded and it works fine. The second part is with my values but it gives an error.

Can someone explain the error and propose a remedy?

Saqib

Sub Fform()
    With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 4804.5, 117932.25)
        .AddNodes msoSegmentLine, msoEditingAuto, 4742.25, 117978#
        .AddNodes msoSegmentLine, msoEditingAuto, 4747.5, 118057.5
        .AddNodes msoSegmentLine, msoEditingAuto, 4904.25, 118102.5
        .AddNodes msoSegmentLine, msoEditingAuto, 4956.75, 118044#
        .ConvertToShape.Select
    End With
    With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 6979.297118, 7097.833484)
        .AddNodes msoSegmentLine, msoEditingAuto, 6980.243934, 7097.982595
        .AddNodes msoSegmentLine, msoEditingAuto, 6979.947016, 7095.819007
        .ConvertToShape.Select
    End With
End Sub