VBA Speichern ggf überspringen

Sub Save()
Range("L31").Select
Selection.Copy
Sheets("PDV Daten ").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Copy
ActiveWorkbook.SaveAs "\\xxxx\xxx\xxx\xxx\xxxx\xxx\" & ActiveSheet.Range("A1") & " " &  _
Format(Date, "_dd_mm_yyyy") & ".xls"
ActiveWorkbook.Close False
Sheets("Einträge").Select
Dim WkSh_Q  As Worksheet
Dim WkSh_Z  As Worksheet
Set WkSh_Q = ThisWorkbook.Worksheets("Einträge")
Set WkSh_Z = ThisWorkbook.Worksheets("Aufträge")
WkSh_Q.Range("L34:S34").Copy
WkSh_Z.Range("S" & WkSh_Z.Cells(WkSh_Z.Rows.Count, 19).End(xlUp).Row + 1).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub