Data automatisch sorteren en plakken in tabbladen

[Warme bakkertje]

Conejo, dit is een publiek forum waar iedereen iedereen helpt.
Dus iemand persoonlijk aanspreken heeft geen zin en zal je ook niet de sympathie van de andere helpers opleveren.
Een andere werkwijze heb ik je in Post#5 al aangeboden. Al eens overwogen om deze te testen ?
Voor de volledigheid.

Sub verdeel_en_heers()
    With Sheets("Mutaties")
        For i = 1 To 3
            .Range("A1:N1").AutoFilter 3, Choose(i, "INS", "UIS", "COR")
            .AutoFilter.Range.Offset(1).SpecialCells(12).Copy Sheets(Choose(i, "Inslag", "Uitslag", "Breuk")) _
                        .Range("A" & Rows.Count).End(xlUp).Offset(1)
        Next
        .ShowAllData
    End With
End Sub

 

[Conejo]

Excuses!