während macro modul einfügen

ich erstelle während eines Macros eine neue Datei und möchte in diese (per Macro) entweder ein Modul einfügen oder in "diese Arbeitsmappe" folgenden Text eintragen, damit ich trotz Blattschutz Autofilter verwenden kann:

Sub auto_open() bzw. Privat Sub autofilter

For i = 1 To 2
Sheets(i).EnableAutoFilter = True
Sheets(i).Protect password:=" ", Contents:=True, userInterfaceOnly:=True
Next i
End Sub

Wer kann mir hier weiterhelfen??
Vielen Dank schonmal.
Stephan