Dynamischer Druckbereich

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim LoI As Long
If ActiveSheet.Name = "Kommission_Module" Then
For LoI = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If IsNumeric(Cells(LoI, 2).Value) = True And Cells(LoI, 2).Value  "" Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$" & LoI
Exit For
End If
Next LoI
End If
End Sub

der für sich alleine auch prima funktioniert.
Der auf das Tabellenblatt "Kommission_Paletten" angepasste Code

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim LoI As Long
If ActiveSheet.Name = "Kommission_Paletten" Then
For LoI = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If IsNumeric(Cells(LoI, 2).Value) = True And Cells(LoI, 2).Value  "" Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$" & LoI
Exit For
End If
Next LoI
End If
End Sub

für sich alleine funktioniert ebenfalls bestens.
Beide Codes in "Diese Arbeitsmappe" oder einem Modul unterzubringen klappt wegen der "Mehrdeutigkeit der Namen" oder wie das heisst nicht.
Jeweils getrennt im VBA-Projekt in "Tabelle 1(Kommission_Module) und Tabelle 3(Kommission_Paletten laufen die Codes jedoch auch nicht.
Was muss ich wie ändern? Was mache ich falsch? Bitte helft mir!
Gruß
Bibo