Macro per salvare solo l'area di Stampa

Sub salva()
fpath = ThisWorkbook.Path & "\"
filenam = Range("B14")
Sheets(1).Copy
Range("B1:P58").Value = Range("B1:P58").Value
Columns("Q:AD").Delete

ActiveWorkbook.SaveAs Filename:= _
            fpath & filenam & ".xlsx", FileFormat:= _
            xlOpenXMLWorkbook, CreateBackup:=False
            ActiveWorkbook.Close
End Sub

Sub SalvaPDF()
    Dim wks1 As Worksheet
    Dim dati As Range
    Dim percorso As String
    Dim nomefile As String
    Set wks1 = Worksheets("D.D.T.")
    Set dati = wks1.Range("B1:P58")
    nomefile = Range("B14").Value
    percorso = ActiveWorkbook.Path & "\"
    dati.ExportAsFixedFormat Type:=xlTypePDF, Filename:=percorso & nomefile, _
    Quality:=xlQualityStandard, OpenAfterPublish:=False
    MsgBox "Copia PDF salvata con successo!", vbInformation, "Avviso di notifica"
    Set wks1 = Nothing
    Set dati = Nothing
End Sub

Sub salva()
fpath = "C:\quellochevuoi\"
filenam = Range("B14")
Sheets(1).Copy
Range("B1:P58").Value = Range("B1:P58").Value
Columns("Q:AD").Delete
 
ActiveWorkbook.SaveAs Filename:= _
            fpath & filenam & ".xlsx", FileFormat:= _
            xlOpenXMLWorkbook, CreateBackup:=False
            ActiveWorkbook.Close
End Sub