I meant, more narrowly, what is that line of code supposed to do. Try replacing it with this:

    With rngCellBeingChecked
        .EntireRow.Hidden = True
        .Offset(0, -1).Range("A1, A3:A6").ClearContents
    End With