行に値が入っている最後の行番号を取得（数式のみの列は含めない）

Question

Max_Row = UsedCell.Cells(UsedCell.Count).row
でワークシート上の最後の行番号を取得しているいるのですが、
数式だけが入っている行もカウントしてしまう。
実際の値が表示されている所までカウントしたい場合はどうしたらいいのでしょうか？
当方VBA初心者です。

別の質問の
https://teratail.com/questions/271088
にて横の列のパターンは解決いたしました。
縦の行のパターンはどうしたらいいのでしょうか？

Comments

[ttyp03]

前回同様「数式のみの列」という表現が曖昧なので改めてください。

[DreamTheater]

以前の回答をコピペしただけなんですか？

Answer 1

他の方から指摘がある様に、
質問の意図が不明瞭なので憶測での提案で恐縮ですが、
以下のどちらかで実現できませんか。

1. Value でも Formula でも、何かしら値が入ってる最終行を取得できます。

With 対象のシート
   Max_Row = .Cells(.Rows.Count, 対象の列).end(xlUp).Row
End with

1. Value が空白でない最終行を取得できます。

With 対象のシート
    Buf_Row = .Cells(.Rows.Count, 対象の列).end(xlUp).Row
    For i = Buf_Row to 1 Step -1
        If .Cells(i, 対象の列).Value <> "" then
            Max_Row = i
            Exit For
        End if
    Next i
End with

特に後者は頭の悪いコードですが、
今思いついたコードをシンプルに書き出しただけなので悪しからず。

また、間違ってる箇所があったらすみません。
大まかな流れは把握できると思いますのでご容赦下さい。。

ちなみに、上記コードだと複数列に対しては最終行を取得できません。
ただ、別の質問を拝見した所、
単一行の最終列を取得する手法で納得されていたので、一先ず上記回答とさせて頂きます。

その辺りも質問からは読み取れなかったので、
言語だけでの説明が難しい様であれば、
実現したい内容の簡単なサンプルだけでも提示しては如何でしょうか。