わかんなきゃいいよw　カリカリすんなよ
フォルダ名を取得する記事見付けた　検索文字で絞る事もできる　*とか?とかも要らん
https://tmkr7788.livedoor.blog/archives/26830287.html
で、一番上のフォルダ指定するのが手入力っぽいから、それも自動取得するなら

Sub Sample()
Dim FPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "C:\ほにゃらら"
.Title = "フォルダを選択してください"
If .Show = -1 Then
FPath = .SelectedItems(1)
End If
End With
Cells(3,3) = FPath
End Sub

これを別ボタンに貼り付ければ、ディレクトリ探すのもマウスオペだけで済む　お好みだけど
　※　ほにゃらら部分は、デフォルトで指定しときたいフォルダ名に