With ActiveSheet.Shapes.BuildFreeform(msoEditingCorner, 215.25, 40.5)
        .AddNodes msoSegmentCurve, msoEditingCorner, 211.5, 41.25, 209.25, _
          41.25, _
        207#, 44.25
        .AddNodes msoSegmentCurve, msoEditingCorner, 205.5, 45.75, 202.5, _
          50.25, _
        202.5, 50.25
        .AddNodes msoSegmentCurve, msoEditingCorner, 201.75, 53.25, 200.25, _
          59.25, _
        200.25, 59.25
        .AddNodes msoSegmentCurve, msoEditingCorner, 203.25, 93.75, 220.5, _
          92.25, _
        251.25, 94.5
        .AddNodes msoSegmentCurve, msoEditingCorner, 255.75, 95.25, 257.25, _
          95.25, _
        261#, 98.25
        .AddNodes msoSegmentCurve, msoEditingCorner, 264.75, 107.25, 264.75, _
          116.25, _
        266.25, 126#
        .AddNodes msoSegmentCurve, msoEditingCorner, 268.5, 160.5, 273.75, _
          176.25, _
        237.75, 177.75
        .AddNodes msoSegmentCurve, msoEditingCorner, 220.5, 174.75, 204.75, _
          171.75, _
        188.25, 165.75
        .AddNodes msoSegmentCurve, msoEditingCorner, 184.5, 162#, 182.25, _
          159.75, _
        180.75, 154.5
        .AddNodes msoSegmentCurve, msoEditingCorner, 178.5, 121.5, 180.75, _
          120#, _
        211.5, 115.5
        .AddNodes msoSegmentCurve, msoEditingCorner, 214.5, 115.5, 221.25, _
          116.25, _
        221.25, 116.25
        .ConvertToShape.Select
    End With