EXCEL VBA 同一フォルダの新しいブック１へ、元ファイルのデータシートをコピー

ＶＢＡ素人です。
下記のサンプル●の例では、新しいブックのフォルダを
D:\Work　としています。

これを、今の作業中のブックが保存されている同じフォルダへ
新ブックをつくりたいです。
。。。。
Sub Sample●()
Sheets("Sheet1").Name = "大島"
Sheets("大島").Copy
ActiveWorkbook.SaveAs "D:\Work\大島.xlsx"
ActiveWorkbook.Close
End Sub
。。。

さて、知識不足ですが、下記の材料ももっています。
ご回答にあたり、何か参考になりましたら。

Dim wb1 As Workbook
Workbooks.Open ThisWorkbook.Path & "\test.xlsx"
Set wb1 = ActiveWorkbook

wb1.Worksheets(1).Range("A1:Y5").Copy Destination:=ThisWorkbook.Worksheets(1).Range("A1:Y5")

Application.DisplayAlerts = False
wb1.Close
Application.DisplayAlerts = True

....

No.1 ベストアンサー 回答者： mygoonickname 回答日時： 2021/10/20 07:50

おはようございます。

ThisWorkbook.Path　で、現在のマクロのパスが分かるかと思います。

下記が参考になるでしょうか？

Excel VBA 同じフォルダにブックを保存する
https://lilia-study.com/excel/excel-vba/onajifol …

ブックに名前を付けて保存
https://excel-ubara.com/excelvba1/EXCELVBA364.html