Filter - til andre arkfaner

Kender du LOPSLAG-funktionen?

Den kender jeg godt, men da det medfører en lang række regneregler i de efterfølgende arkfaner er dette ikke en særlig god løsning

Antallet af poster i Ark 1 er en variabel størrelse

Jeg har forsøgt med dette, men det virker ikke

Sub Select_IBM()

' Medtag rækker hvor leverandørnavn = IBM

    række = 0
   
    Do
        række = række + 1
            Loop Until (Cells(række, 1) = "")
   
        Range("A2").Select
   
    For n = 1 To række
       
        If Cells(n, 4) = "IBM" Then
           
            ActiveCell.FormulaR1C1 = Cells(n, 1)
                       
            ActiveCell.Offset(1, 0).Worksheets("Alle").Range("A1").Select
       
        End If
   
    Next n

End Sub

"Alle" er der jeg henter fra, "IBM leverance" ( A2 ) er der jeg vil indlæse fra

Hvad laver den præcist?

For mig at se, vælger den blot cellerne, der opfylder betingelsen, én for én, men kopier dem ikke, eller flytter til andet ark e.l.?

Afgrænset i et og samme regneark virker dette efter hensigten

Sub Select_IBM()

' Medtag rækker hvor leverandørnavn = IBM

    række = 0
   
    Do
        række = række + 1
            Loop Until (Cells(række, 1) = "")
   
        Range("H2").Select
   
    For n = 1 To række
       
        If Cells(n, 4) = "IBM" Then
           
            ActiveCell.FormulaR1C1 = Cells(n, 1)
           
            ActiveCell.Offset(1, 0).Range("A1").Select
       
        End If
   
    Next n

End Sub

Dvs. så længe kolonne A indeholder en værdi, aflæses kolonne 4 som skal indeholde væedien "IBM" hvorefter værdien i kolonne A returneres i H2 og nedefter

Men hvordan returneres til en anden arkfane ???

Lukker