Find and delete range of data

Try this

Option Explicit

Sub check()

    Dim rChk As Range
    Dim rDel As Range
    Dim rCl As Range

    Set rChk = Range(Cells(2, 15), Cells(750, 15)).SpecialCells(xlCellTypeConstants)

    For Each rCl In rChk
        If rCl.Value = 1 Then
            If rDel Is Nothing Then
                Set rDel = rCl.Offset(0, -1)
            Else: Set rDel = Union(rDel, rCl.Offset(0, -1))
            End If
            rDel.Value = ""
        End If
    Next rCl
End Sub