Copiar datos a otro libro según celda

Tengo el siguiente macro que lo acomode a mi utilidad

Sub Copiar_a_RecKardex()
For Each Hoja In Worksheets
    If Hoja.Name <> "REC" Then
    'Comprobamos antes si la hoja está entre las mencionadas en la columna R
    Dim qRangoR As Range
    'Set qRangoR = Application.Intersect(Columns("P:P"), Hoja28.UsedRange)
    Set Origen = Range("P2")
        For Each cell In Origen
            If cell.Value = Hoja.Name Then
                'si la hoja coincide con alguno de los nombres de la columna N, se ejecuta
                uFila = Worksheets("REC").Range("A" & Rows.Count).End(xlUp).Row
                Worksheets("REC").Range("b3:O" & uFila).Copy Destination:=Worksheets(Hoja.Name).Range("A" & Rows.Count).End(xlUp).Offset(1)
                Else
                'si no coincide no hace nada
            End If
        Next cell
    End If
Next
End Sub

Bueno como les indique hace lo que necesito, pero que código tendria que aumentar para pasar el rango seleccionado de mi hoja TKT a otro libro que esta con el nombre "CUENTAS" ???