Excel関数のMAXを使って、指定列の最大値を取得

MAX値 = Application.WorksheetFunction.Max(Range("A:A"))

ネタ元

• https://uxmilk.jp/50111