Private Sub CommandButton1_Click()
Dim i As Long
For i = Cells(Rows.Count, 4).End(xlUp).Row To 2 Step -1
If Cells(i, 4) <= Cells(i, 2) And Cells(i, 4) >= Cells(i, 10) Then Cells(i, 2).EntireRow.Delete
Next
End Sub
u have used this code and a button
but in my file i am not using button so changes are required
plz change and modify the code plz mentioned the target sheet in the code