Stapelfehler ?!?!?

Hallo,

ich bekomme beim Ausführen von diesem Code immer einen Stapelfehler und der Button führt sich nicht aus, hat einer eine Ahnung warum?

Code in Tabelle 1 (Lager)
Private Sub btnAbrechnung_Click()

btnAbrechnung_Click

End Sub

Im Modul 1 habe ich stehen:

Private Sub btnAbrechnung_Click()

Application.ScreenUpdating = False
With Worksheets("Lager")
.Range("A1").AutoFilter Field:=4, Criteria1:="K"
.Rows("2:" & Range("D65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy Worksheets("Tabelle2").Range("A2")
.Rows("2:" & Range("D65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
.Range("A1").AutoFilter
End With
Application.ScreenUpdating = True

End Sub