hvorfor lukker originalen VBA SaveCopyAs

Hej.
Jeg skal gennemgå en masse filer for om der er værdi i en af 3 celler.
Hvis der findes en værdi skal den gemme et kopi, og derefter slette originalen, hvis ingen værdi, skal den bare slette originalen.
Min kode ser således ud.

Sub tjek_felter()

'variabler
            Dim zb As String

Workbooks(2).Sheets("S").Select

If IsEmpty(Range("D127").Value) = False Then

    ActiveWorkbook.SaveCopyAs Filename:="K:\Aftaler med kodning\" & Range("C8").Value & ".xlsx"
 
      ActiveWorkbook.Close False
      zb = ActiveWorkbook.FullName
      ActiveWorkbook.Close False
      Kill zb
     
ElseIf IsEmpty(Range("D128").Value) = False Then

    ActiveWorkbook.SaveCopyAs Filename:="K:\Aftaler med kodning\" & Range("C8").Value & ".xlsx"
 
      ActiveWorkbook.Close False
      zb = ActiveWorkbook.FullName
      ActiveWorkbook.Close False
      Kill zb

  ElseIf IsEmpty(Range("D129").Value) = False Then

    ActiveWorkbook.SaveCopyAs Filename:="K:\Aftaler med kodning\" & Range("C8").Value & ".xlsx"
 
      ActiveWorkbook.Close False
      zb = ActiveWorkbook.FullName
      ActiveWorkbook.Close False
      Kill zb
     
Else
      ActiveWorkbook.Close False
      zb = ActiveWorkbook.FullName
      ActiveWorkbook.Close False
      Kill zb
End If

End Sub

Ligenu gemmer den som den skal, men den lukker originalfilen også, det er et problem, fordi jeg bruger en anden sub til at gennemgå en hel mappe, og hvis den ikke sletter originalfilen, bliver den bare ved at åbne den samme fil.