엑셀 vba find 함수 응용 특정 행 지우기

tot라는 문자가 포함된 셀의 모든 행을 지우고 싶을 때 다음과 같이 접근하면 좋다.

'b열에서 "tot"가 포함된 셀을 찾아 EntireRow로 해당 행을 대상으로
With ActiveSheet.Range("b:b").Find("tot").EntireRow
    .Interior.Color = RGB(255, 111, 111) '실수를 방지하기 위해 배경색 잠시 하이라이트
    If MsgBox("이거 지울꺼야?", vbYesNo) = vbYes Then '예를 선택하면
        .Delete '행 삭제
    Else    '아닐경우
        .Interior.Color = xlNone '배경색만 해제
    End If
End With

그러면 다음과 같이 행을 삭제 할수 있게 된다.

예를 눌러서 삭제

아니오를 눌러서 취소