Zeilen mit gleichem Inhalt in Spalte A makieren

Sub Test()

    Dim Auswahl As Range

    Dim Verkäufer As Range

    Dim Anfang As Long

    Dim Ende As Long

    Set Verkäufer = Sheets("Mitarbeiter").Range("A3")

    Set Auswahl = Sheets("MA").Range("A1")

        

    Do Until Auswahl = Verkäufer

       Set Auswahl = Auswahl.Offset(1, 0)

    

    Loop

            

    Anfang = Auswahl.Row

    

    Do While Auswahl = Verkäufer

        Set Auswahl = Auswahl.Offset(1, 0).Range("A1")

    

    Loop

        

    Ende = Auswahl.Offset(-1, 0).Row

    

    Rows(Anfang & ":" & Ende).Copy Sheets("Mitarbeiter").Range("A40")

        

        

End Sub