Niet alle autosommen verwijderen

[cryptofreak1]

Hallo allemaal,

ik heb een document en als ik op de knop druk gebeuren er 3 dingen.
1. hij slaat het doc totaal op
2. hij slaat het tabblad KWALITEITSCONTROLE appart op maar verwijdert daar ook alle autosommen
3. hij haakt het blad leeg

nu is mijn vraag, ik wil dat hij het kwaliteitrapport opslaat zoals nu alleen de autosommen van kollom E die moeten blijven staan.
hier de code:

Private Sub CommandButton1_Click()

'*****************************
'Maakt het gehele document
'*****************************


Application.ScreenUpdating = False
sString = Range("A6") & " " & Range("B2") & " " & Range("G6") & " " & Range("H6")
wb = "\\sbs\redirectedfolders$\reinier\Desktop\TEST EXCEL\" & sString & Right(ThisWorkbook.FullName, 5)
ThisWorkbook.SaveCopyAs wb


With Workbooks.Open(wb)
.Sheets("invoer").OLEObjects(1).Delete
.Close -1
End With

'*****************************
'Maakt het Kwaliteitscontrole
'*****************************

Sheets("kwaliteitscontrole").Copy
    
    
With ActiveWorkbook.Sheets("kwaliteitscontrole")
.UsedRange.Value = .UsedRange.Value
.SaveAs "F:\RegistratieSTP\1e kwaliteit controle\" & sString & ".xlsm", 51
.Parent.Close
End With



'*****************************
'Maakt het sheet leeg
'*****************************

Range("A6:N42").ClearContents
Range("A5").Activate

 
 
MsgBox "De documenten zijn gemaakt", vbInformation, "Opgeslagen"


End Sub