Moin Mareike! Also wie der andere Gast geschrieben hat, in einem Blatt für jeden Wert (was sonst ein Blatt darstellt) eine Zeile, in der du auswählst und dann rechts davon die zwei Werte hast, wäre einfacher. Wenn es aber mit den Blättern sein soll, dann ggf. so. Müsstest noch die Namen und die genauen Zuordnungen (Zeilen und Spalten) anpassen. VG

Sub blätter_auswerten()
Dim blatta As Object, blattb As Object, blattc As Object
Dim blatt
Dim eingabe
Dim Zeile As Long

'ich gehen mal davon aus, das die 3 Blätter für die Auswertung schon da sind, hier die Namen eintragen
Set blatta = Worksheets(deinNameBlattA)
Set blattb = Worksheets(deinNameBlattB)
Set blattc = Worksheets(deinNameBlattC)

'durch alle Blätter gehen
For Each blatt In ActiveWorkbook.Worksheets

'die 3 Blätter der Auswertung ausklammern
    If blatt.Name <> blatta.Name And blatt.Name <> blattb.Name And blatt.Name <> blattc.Name Then
        'jetzt die Blätter auswerten
        'Rückgabewert des Dropdown bzw. de Zeile Auswählen
        eingabe = blatt.Cells(2, 2)
        
        Select Case eingabe
            Case "A"
                'lezte Zeile in Spalte A
                Zeile = blatta.Cells(Rows.Count, 1).End(xlUp).Row
                'und eins tiefer in einer Zeile eintragen
                blatta.Cells(Zeile + 1, 1) = blatt.Name
                blatta.Cells(Zeile + 1, 2) = blatt.Cells(3, 2)   'das in Abhängigkeit der Zelle der Einagbe ändern
                blatta.Cells(Zeile + 1, 3) = blatt.Cells(4, 2)   'das in Abhängigkeit der Zelle der Einagbe ändern
                
            Case "B"
                'lezte Zeile in Spalte B
                Zeile = blattb.Cells(Rows.Count, 1).End(xlUp).Row
                'und eins tiefer in einer Zeile eintragen
                blattb.Cells(Zeile + 1, 1) = blatt.Name
                blattb.Cells(Zeile + 1, 2) = blatt.Cells(3, 2)   'das in Abhängigkeit der Zelle der Einagbe ändern
                blattb.Cells(Zeile + 1, 3) = blatt.Cells(4, 2)   'das in Abhängigkeit der Zelle der Einagbe ändern
                
            
            Case "C"
                'lezte Zeile in Spalte C
                Zeile = blattc.Cells(Rows.Count, 1).End(xlUp).Row
                'und eins tiefer in einer Zeile eintragen
                blattc.Cells(Zeile + 1, 1) = blatt.Name
                blattc.Cells(Zeile + 1, 2) = blatt.Cells(3, 2)   'das in Abhängigkeit der Zelle der Einagbe ändern
                blattc.Cells(Zeile + 1, 3) = blatt.Cells(4, 2)   'das in Abhängigkeit der Zelle der Einagbe ändern
                
            
            Case Else
                MsgBox "Den Wert in " & blatt.Name & " kennen wir nicht. Dieser wird nicht ausgewertet."
        
        End Select
    End If
Next blatt
End Sub