Deleting a row if it contains the right criteria

With this one you can do the action for any selection of yours...

Option Explicit


Sub delete()
Dim dvalue As Double
Dim cell As Range


For Each cell In Selection

    If ActiveCell.Value < 30 Then
        ActiveCell.EntireRow.delete
        ActiveCell.Offset(-1, 0).Activate
    End If
        
        ActiveCell.Offset(1, 0).Activate
        Next cell
        
End Sub