Error check and if the cell is not numeric or empty loop to the next item

can't you just perform each test and only run the code if all pass?

if isnumeric(rCell) then
   if rcell.value2 > 100 then
    'et cetera
   end if
end if