To summarize the comments above, a solution would be :
Sub Save_close()
Dim Ws As Worksheet
Dim Wb As Workbook
Dim i as Long
Application.DisplayAlerts = False
Set Wb = Workbooks("A380 Master.xlsm")
If (MsgBox("Do you want to Save a new copy", vbYesNo, "Save New")) = vbYes Then
Wb.Sheets("OutPutSheet").Range("C:C", "F:F").Delete
For i = Wb.Sheets.Count to 1 step -1
Set Ws = Wb.Sheets(i)
' Delete all except "OutputSheet" and "Sheet1"
If Not (Ws.Name = "OutputSheet" Or Ws.Name = "Sheet1") Then
Ws.Delete
' ElseIf Ws.Name = "OutputSheet" Or Ws.Name = "Sheet1" Then
End If
Next i
Wb.SaveAs
Else
'Workbooks("A380 Master.xlsm").Sheets("OutPutSheet").Range("A1").Select
End If
End Sub