Filter setzen

Public Sub Filter()
Dim letztespalte
letztespalte = ActiveSheet.Cells(1, 256).End(xlToLeft).Column
ActiveSheet.Range("A1").Select
ActiveSheet.Range("A1" & letztespalte).Select
Selection.AutoFilter
Range("B1").Select
End Sub