サンプルマクロは、C:\Sampleフォルダが存在しない場合は作成して、
そのフォルダ内にマクロを記述しているブックを同名で保存します。

Sub Sample()

    Const myDir As String = "C:\Sample"
    
    If Dir(myDir, vbDirectory) = vbNullString Then _
        MkDir myDir
    ChDrive myDir
    ChDir myDir
    With Application
        .DisplayAlerts = False
    With ThisWorkbook
        .SaveAs .Name
    End With
        .DisplayAlerts = True
    End With
    
End Sub