Suchen->Kopieren->Einfügen

Hallo liebe Excel-Gemeinde,

ich möchte mittles VBA folgenden Aktion umsetzten.

In den Spalten Q3 bis Q 33 sollen bestimmte Begriffe eingefügt werden. (Manuell)

Beim Ausführen des Makros sollen nun die Werte aus Q3 bis Q33 mit der Spalte A ab Zeile 10 verglichen werden.
Wenn dort eine Übereinstimmung festgestellt wird soll diese Zeile von A bis O kopiert werden und im Anschluss bei dem jeweilgen Wert in der Spalte Q bis AE eingefügt werden.

Ich habe folgenden Code. Jedoch kopiert er mir die Wert aus den folgenden Spalten nicht rüber.

Sub WertSucheUndKopieren()
    Dim ws As Worksheet
    Dim suchenBereich As Range, zelle As Range
    Dim wert As Variant
    Dim gefunden As Boolean
    
    ' Arbeitsblatt festlegen
    Set ws = ThisWorkbook.Sheets("Tabelle1")
    
    ' Suchbereich festlegen
    Set suchenBereich = ws.Range("Q3:Q33")
    
    ' Iteration über die Werte im Suchbereich
    For Each zelle In suchenBereich
        wert = zelle.Value
        
        ' Überprüfen, ob der Wert in Spalte A vorhanden ist
        If WorksheetFunction.CountIf(ws.Range("A10:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row), wert) > 0 Then
            gefunden = True
            
            ' Kopieren der Spalten K bis O
            ws.Range("K" & zelle.Row & ":O" & zelle.Row).Copy
            
            ' Einfügen ab Spalte AA
            ws.Range("AA" & zelle.Row).PasteSpecial xlPasteValues
        End If
    Next zelle
    
    ' Meldung, wenn keine Übereinstimmungen gefunden wurden
    If Not gefunden Then
        MsgBox "Keine Übereinstimmungen gefunden."
    End If
    
    ' Zwischenablage leeren
    Application.CutCopyMode = False
End Sub