ClearingContents in ranges that don't intersect

[大灰狼1976]

Hi JoeSal!
Welcome to vbax forum!
Maybe:

For each cell in sheets("responders").range("B111:B25000").cells
    if intersect(cell , sheets("responders").range(var)) is nothing then
        cell.clearcontents
    end if
next cell