ものマネVBA 最終行の求め方

　これまではこれを使ってたが、

Dim 最終行 As Long
最終行 = Range("A3").End(xlDown).Row + 1

　今は、これだ。

Dim 最終行 As Long
With ActiveSheet.UsedRange
最終行 = .Find("*", , xlFormulas, , xlByRows, xlPrevious).Row + 1
 End With

A列全体の最終行を求めるには

Dim 最終行 As Long
With ActiveSheet.UsedRange
最終行 = Range("A:A").EntireColumn.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row + 1
End With

xlDownを使うこれまでの方法だと、行の削除などの操作をすると、ダメなこと＝最終行が非常に大きな値になることがあるのだ、 おそらく、マイクロソフトのバグと思われる。