【VBA】特定の列で値が入っている一番上の行を選択してみた

エクセルのマクロを利用して、特定の列で値が入っている一番上の行を選択してみました。

特定の列で値が入っている一番上の行を選択する

やりたいことは以下の画像のように、特定の列の一番上の行を選択する、というものです。
画像の1~9行には値が入っていません。
画像では赤枠のA列の10行目を選択します。

以下のマクロで選択可能です。
今回は列としてA列を指定しています。

Sub SelectFirstNonEmptyCellInColumnA()
    Dim ws As Worksheet
    Dim firstNonEmptyCell As Range
    
    ' シートを設定
    Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を適切な名前に変更
    
    ' A列で最初の値が入っているセルを検索
    Set firstNonEmptyCell = ws.Columns("A").Find(What:="*", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
    
    ' 最初の値が入っているセルが見つかった場合、そのセルを選択
    If Not firstNonEmptyCell Is Nothing Then
        firstNonEmptyCell.Select
    Else
        MsgBox "A列に値が入っているセルが見つかりませんでした。"
    End If
End Sub