VBA Excel method Not working

[grandneos]

I am looking to create a macro that allows me to save a new file with the file name as the one in cell J6. I keep getting a run time error as '1004': how do I fix this problem?Below is the code




Sub Macro20
Macro2 Macro
Dim ID As String
Dim Path As String

Path = "/Users/viniweichselbaumer/Documents/Server/Finance and Admin/Business App Development /"
ID = Range("]6"). Value & "xlsm"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName: =Path & ID, FileFormat: =x|sm
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub