>>893
SpecialCellsを使えばいいんじゃないかと
＞指定された条件を満たしているすべてのセル (Range オブジェクト) を返します。
なので

Set Err_Cell = Range("A1:A100").SpecialCells(xlCellTypeFormulas, xlErrors)
Set Before = Err_Cell.Cells(1, 1).Offset(-1)

とかとか