Private Sub in "Makro" Umwandeln?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Dieses Blatt Nicht löschen!").Select
Range("H2").Select
Sheets("Tabelle1").Select
Range("H26").Select
ActiveWorkbook.Save
Saved = True
With Workbooks("MNW_Drucken.xlsm")
With .Sheets(3)
.Range("a8:a9").Copy .Range("o19:o20")
End With
.Save
End With
Workbooks("Abrufkunden.xlsm").Close True
Saved = True
If Workbooks.Count = 1 Then ' diese Datei
Application.Quit
End If
End Sub