Excel Tabellenblatt finden und Zeile kopieren

Hallo,

ich möchte anhand von Buttons einen Zugang bzw. einen Abgang auf bestimmte Tabellenblätter kopieren.


Die Tabellenblätter entsprechen der jeweiligen anzugebenen Artikelnummer siehe Bild.
Das Makro soll dann also schauen und die eingetragene Artikelnummer mit den Tabellenblättern vergleichen und
die restlichen Werte dann immer in die nächste freie Zeile des jeweiligen Tabellenblattes(= der angegebenen Artikelnummer ) kopieren.

Mit freundlichen Grüßen

Florian86

Sub ZugangBuchen()
    Dim target As Worksheet, rngFree As Range
    Set target = Sheets(ActiveSheet.Range("B6").Value)  
    With target
        Set rngFree = .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)  
        rngFree.Resize(1, 5).Value = ActiveSheet.Range("C6:G6").Value  
    End With
End Sub

Sub ZugangBuchen()
    Dim target As Worksheet, rngFree As Range
    Set target = Sheets(ActiveSheet.Range("B6").Value)  
    With target
        Set rngFree = .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)  
        If rngFree.Row < 5 then 
            Set rngFree = .Range("A5")  
        End if
        rngFree.Resize(1, 5).Value = ActiveSheet.Range("C6:G6").Value  
    End With
End Sub