Dear reza_akbar,
To save the file in a specific path, you must include the folder path, file name, and extension in the Filename argument of the SaveAs method. The modified code is given below:
Sub SaveIt()
Dim dt As String, wbNam As String, savePath As String
'Enter your workbook name...