ワークシートの最終行・最終列を取得したい

実現したいこと

ワークシートの最終行の行番号・最終列の列番号を取得して、エクスポートするクエリの開始セルを指定したい

前提

Accessのクリック時イベントで、5つのクエリをExcelにエクスポートするフォームを作成しています。エクスポートするクエリの抽出条件によってレコードのフィールド数・レコード数が変わるので、先にエクスポートしたクエリの最終行・最終列を取得して、次にエクスポートするクエリの位置が変更されるようにしたいです。

発生している問題・エラーメッセージ

こちらのサイトを参考に行数を取得しようとしたところ、変数が定義されていないとエラーメッセージが出ました。

該当のソースコード

Dim dbs As Database Dim qdf As QueryDef Dim rst As Recordset Dim intRow As Integer Dim intColumn As Integer Dim xls As Object Set dbs = CurrentDb Set xls = CreateObject("Excel.Application") With xls .ScreenUpdating = False .Workbooks.Open "フルパス¥実績.xlsx"

中略

Set qdf = dbs.QueryDefs("Q_合計") With qdf .parameters("[Forms]![F6_1出力]![集計開始年月]") = [Forms]![F6_1出力]![集計開始年月] .parameters("[Forms]![F6_1出力]![集計終了年月]") = [Forms]![F6_1出力]![集計終了年月] Set rst = .OpenRecordset End With

以下の部分です
既にエクスポートしているクエリの最終行の2行下に次のクエリをエクスポートしたいです。
intRow = Cells(Rows.Count, 1).End(xlUp).ROW + 2

intColumn = 2 .Cells(intRow, intColumn).Value = rst.Fields(intColumn - 2).Name

後略

試したこと

上記のコードを試しました。
変数が定義されていないとエラーが出るのですが、どのように定義すればいいのか分かりません。

補足情報（FW/ツールのバージョンなど）

Microsoft　Access2019