This code works...
Sub DeleteRowNoPicture
Dim PICTUREi As Object
Dim LastRow As Long, ROWi As Long
Application.ScreenUpdating = False
Columns(1).Cells.Value = "D"
LastRow = 1
For Each PICTUREi In ActiveSheet.Pictures
Range(Cells(PICTUREi.TopLeftCell.Row - 1, 1), Cells(PICTUREi.BottomRightCell.Row + 1, 1)).Cells.ClearContents
LastRow = _
IIf(PICTUREi.BottomRightCell.Row + 1 > LastRow, PICTUREi.BottomRightCell.Row + 1, LastRow)
Next PICTUREi
Range("A1").EntireColumn.SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow.Delete shift:=xlUp
Application.ScreenUpdating = True
End Sub