Distributing data into varying tabs VBA

Hey Marc,

Thank you for the reply and help, but when I try this code instead it breaks at

.[A1].CurrentRegion.Columns(7).AdvancedFilter xlFilterCopy, , .[K1], True

asking to debug.