Problem mit der Maske

Ich habe ein Makro dass mir beim Start die Maske aufruft. Funktioniert auch ganz gut. Aber nach Zeile 32 bekomme ich eine Fehlermeldung "Kann Datenbereich oder Liste nicht erweitern".

Schließe ich die Maske und öffne sie wieder funktioniert es wieder.

Sub auto_open()

Dim variable1
'
Range("b2").Select
Set tbl = ActiveCell.CurrentRegion

anzahlzeilen = tbl.Rows.Count

variable1 = ActiveCell.Offset(anzahlzeilen, 0).Select



ActiveSheet.ShowDataForm
End Sub

Danke im Voraus

mfg Marc