Veja se é isto :

Sub QdeCopias_e_Salvar()

    Dim QdeCopias As Long

    On Error Resume Next

        Application.DisplayAlerts = False
            
            'Pergunta a qde de cópias
            QdeCopias = Application.InputBox _
             (Prompt:="Digite o Numero de Cópias.", _
                    Title:="Quantidade de Cópias", Type:=1) 'Tipo 1 - aceita digitação somente de numeros
    
    'Se Cancelar sai da Rotina
    On Error GoTo 0

    Application.DisplayAlerts = True
        
        'Se a qde for nulaou Zero sai da Rotina
        If QdeCopias = 0 Then

            Exit Sub

        Else 'Se não Cancelou e qde diferente de 0
            
            'Imprime
            ActiveWindow.SelectedSheets.PrintOut Copies:=QdeCopias, Collate:=True, _
            IgnorePrintAreas:=False
            
            'Atualiza os Ranges
            Range("A1").Value = Range("A1").Value + 2
            Range("F1").Value = Range("F1").Value + 2
            
            'Salva o Arquivo
            ActiveWorkbook.Save
            
        End If
        
End Sub

[]s