Delete All Pics Outside of Range

Hi try this

Sub Delete()
Dim Pic As Shape

For Each Pic In ActiveSheet.Shapes
    If Pic.TopLeftCell.Row < 5 Then
    
    Pic.Delete
    End If
    Next Pic
    
End Sub