deleting all shapes with same name except one in a sheet

Hi

I have a signature in jpg format, which I am copying to two different places in the same sheet by using this code

Dim oShape1, oshape2 As Shape
Sheets("Part-1").Activate
Set oShape1 = ActiveSheet.Shapes("smallsign")
ActiveSheet.Shapes("smallsign").Duplicate
oShape1.Top = Range("B37").Top + 5
oShape1.Left = Range("B37").Left + 140

ActiveSheet.Shapes("smallsign").Duplicate
oShape1.Top = Range("D69").Top + 25
oShape1.Left = Range("D69").Left + 120

Now I want to delete these two signatures only, by keeping one (let's say original) in tact

I am trying with this but it throws an error

Dim myrange As Range
    Set myrange = ActiveSheet.Range("A1:D100")
    For Each oShape1 In myrange
        If oShape1.Name = "smallsign" Then
            oShape1.Delete
        End If
    Next oShape1

Please help