Save Copy Filename As Without Including Macros

Dear All, i have found googling the code below. Help i need save copy filename without including macros, but file master keep is it.
My excel 2013 version. Sorry my english.
Thanks for appriciated..

Private Sub CommandButton1_Click()
Dim Path As String
Dim FileName1 As String
Dim FileName2 As String
Dim FileName3 As String

Application.ScreenUpdating = False
Path = "D:\inventory\"
FileName1 = Range("AE3")
FileName2 = Range("I11")
FileName3 = Range("AF3")
 
    ActiveWorkbook.SaveAs Filename:=Path & FileName1 & "_" & FileName2 & "_" & FileName3 & ".xls", FileFormat:=xlNormal
    
End Sub