ちょっと調べるか
とりあえずこの書き方はかっこ悪い
If IsNumeric(Range("B2").Value) = True Then Range("B2").Interior.Color = 65535
こう
If IsNumeric(Range("B2").Value) Then Range("B2").Interior.Color = 65535