Macro to remove/change some fields and save the file.

[OpOrange]

Hello all. I am new to this forum but you all have helped me do this so far but I can't find what I am looking for, so I going to try to explain the best I can.

I am trying to simplify when I write a work order for where I work. I have ready created a SAVE AS button to save the file as a specific name and in a specific folder.
But now I want to know if there is a way to completely remove everything circled in red below, and do like a "paste special" and "values" for everything in blue. Because the person who prints the work orders does not like what I am doing to make my life easier. So basically I want her to not know anything about it.

Untitled.jpg

Hope someone can help me.

And here is what I wrote for my SAVE AS BUTTON.

Private Sub CommandButton1_Click()
Dim path As String
Dim FileName1 As String
Dim FileName2 As String
Dim FileName3 As String
Dim FileName4 As String
path = "C:\Users\SHORTNAME.DOMAIN\Documents\PROGRAM\"
FileName1 = Range("E23")
FileName2 = Range("E19")
FileName3 = Range("E20")
FileName4 = Range("E21")
ActiveWorkbook.SaveAs Filename:=path & FileName1 & "_" & FileName2 & "-" & FileName3 & "-" & FileName4 & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub