VBA i Excel til at udvælge og kopierer rækker fra flere forskellige faner til et ark

Hej

Vil godt prøve.

Kunne du opbygge en lille model til test og sende denne. F.eks. 3 ark med et antal rækker.
@-adresse under min profil.

Const samleArkNavn = "Resultat"                      '<---- evt. justeres
Const ræk1Res = 5
Dim antalArk As Integer, antalRæk As Long, arkNavn As String, rækNr As Long, resultatRæk As Integer, bM As String
Public Sub samlingAfArk()
    Application.ScreenUpdating = False

Rem hent ledige række i ResultatArk
    Sheets(samleArkNavn).Activate
    resultatRæk = ActiveCell.SpecialCells(xlLastCell).Row + 1

    For Each ark In ActiveWorkbook.Sheets
        If InStr(ark.Name, samleArkNavn) = 0 Then
            ark.Activate
            antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
            arkNavn = ark.Name
            bM = ark.Range("A1")
           
            For rækNr = 5 To antalRæk
                With ActiveSheet
                    If .Range("A" & rækNr) = "a" Then
                        .Rows(rækNr & ":" & rækNr).Select
                        Selection.Copy
                        Sheets(samleArkNavn).Select
                        ActiveSheet.Range("A" & resultatRæk).Select
                        ActiveSheet.Paste
                        Application.CutCopyMode = False
                       
                        ActiveSheet.Range("A" & resultatRæk) = bM
                        Exit For
                    End If
                End With
            Next rækNr
           
            resultatRæk = resultatRæk + 1
        End If
    Next
   
    Application.ScreenUpdating = False
End Sub

Super! Tusind tak for svaret.

Selv tak..