毎回いろいろと探すのがめんどいので、自分で使うためにメモ書き。

【最終行(A列の最終)】
Dim L_Row As Long
L_Row=(Rows.Count, 1).End(xlUp).Row

【ブックを閉じる(保存しない)】
workbooks("text.xlsx").Close SaveChanges:=False

※ブック名はパス指定しなくてok

【パスの設定】
Environ("USERPROFILE")