VBA-for循环异常处理

Question

问题遇到的现象和发生背景

写了一个FOR循环语句，但是发现如果单元格异常（如单元格是文字），执行就有问题了；
本来是想着用On Error Resume Next直接跳过的，发现部分异常的也会出数据，达不到效果
如果是当执行出错时候在对应单元格返回“数据异常”，应该怎么写？

For h = 5 To i
Range("bj" & h) = Range("N" & h) - Range("AT" & h)
Range("bk" & h) = Range("O" & h) - Range("AU" & h)
Range("bl" & h) = Range("P" & h) - Range("AV" & h)
Range("bm" & h) = Range("Q" & h) - Range("AW" & h)
Range("bn" & h) = Range("R" & h) - Range("AX" & h)
Range("bo" & h) = Range("S" & h) - Range("AY" & h)
Range("bp" & h) = Range("T" & h) - Range("AZ" & h)
Range("bq" & h) = Range("V" & h) - Range("BA" & h)
Range("br" & h) = Range("Y" & h) - Range("BB" & h)
Range("bs" & h) = Range("Z" & h) - Range("BC" & h)
Range("bt" & h) = Range("AE" & h) - Range("BD" & h)
Range("bv" & h) = Range("AG" & h) - Range("BF" & h)
Range("bw" & h) = Range("BH" & h) - Range("BI" & h)
Range("bu" & h) = Range("AF" & h) - Range("BV" & h)
Next h
End Sub

Answer 1

用isnumeric判断是否是数字在做操作，否则就设置数据异常，

If IsNumeric(Range("N" & h)) And IsNumeric(Range("AT" & h)) Then
  Range("bj" & h) = Range("N" & h) - Range("AT" & h)
Else
  Range("bj" & h) = "数据异常"
End If

''''''''''''''''其他同理，自己按照上面的模式加上