vb Code:
  1. dim notallempty as boolean, c as range
  2. for each c in range("o3:0333")
  3.   if not isempty(c) then notallempty = true: exit for
  4. next
  5. if not isempty(range("c9")) and not isempty(range("c10") and notallempty then
  6. else
  7.   exit sub
  8. end if
change ranges to suit, i didn't test, but looks right