Delete All Pics Outside of Range

[dreicer_Jarr]

How would I tailor the code that's below to delete all pictures that are NOT in rows 1:5?

Sub Delete()
Dim Pic As Object

For Each Pic In ActiveSheet.Pictures
    Pic.Delete
    Next Pic
    
End Sub