Comment copier une plage de données filtrées et la coller dans une nouvelle feuille de travail en Excel VBA (sans utiliser le presse-papiers) ?

Je veux copier les colonnes A et B dans une nouvelle feuille avec les plages A et B (le filtre de la feuille source est appliqué dans la colonne H).

Ce code est enregistré, lorsque je l'utilise, une erreur aléatoire se produit. Parce que j'ai 5 sous-macro et quand j'appelle ces sous-macro, elles ne fonctionnent pas correctement. Mais les macros individuelles fonctionnent parfaitement.

J'ai donc besoin de copier sans utiliser le presse-papiers comme cette méthode. Elle n'est pas utilisée lorsque la condition de filtre est appliquée.

Sheets("GROUP1").Range("A:B").Value = Sheets("Sheet3").Range("A:B").Value

Macro enregistrée

Sub Copypaste()
'Application.ScreenUpdating = False

    Sheets("GROUP1").Select

    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("A1:H1").Select
    Range("H1").Activate
    Application.CutCopyMode = False
    Selection.AutoFilter
    ActiveSheet.Range("$A:$H").AutoFilter Field:=8, Criteria1:="K-True", Operator:=xlFilterValues
    Columns("A:B").Select
    Application.CutCopyMode = False
    Selection.Copy

       DoEvents
    Sheets("Sheet3").Select
    Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub