vba - Excel マクロ - ワークブックのマージ、特定の列の最後の行の検索

Question

誰かが私を助けてくれることを願っています。複数のワークブックのシートのデータを 1 つにマージしようとしています。何とか動作させることができましたが、以下のコードを変更する必要があります。すべての列ではなく、設定された列に基づいて、コピーする最後の行を検索する必要があります。以下のコードを変更するにはどうすればよいですか? どんな助けにも感謝します、ありがとう!!

    Private Function LastRow() As Long
        LastRow = 0
        If WorksheetFunction.CountA(Cells) > 0 Then
            'Search for any entry, by searching backwards by Rows.
            LastRow = Cells.Find(What:="*", After:=[a1], _
                  SearchOrder:=xlByRows, _
                  SearchDirection:=xlPrevious).Row
        End If
    End Function