Cómo agregar condiciones a macro que extrae valores únicos

Les pido ayuda para agregar 3 condicionales a la siguiente macro, la cual extrae valores únicos del rango 'Resma' (que está en el mismo libro, en la Hoja1) y los coloca en la Hoja2, a partir de B3... Desde ya les agradezco mucho.

Los cambios que necesitaría la macro son:

1. Que los datos los extraiga de una tabla que está en otro libro, el cual se llama 'Facturación y Backlog', la tabla se llama 'FYB', los datos a extraer están en la hoja 'ABM', y el rango de donde extraer los datos se llama 'Clientes' (J3:J).
2. Que al realizar la extracción de valores únicos, la macro tenga en cuenta 3 condicionales: (a) Que en el rango 'País' (C3:C) diga 'España'. (b) Que en el rango 'Hito' (Q3:Q) diga 'Alta'. (c) Que el rango 'Fecha' (O3:O) sea >= a la fecha 01-01-2021.

Sub VentaCliente()

Dim celda As Object

Dim i As Integer

Application.ScreenUpdating = False

Set unicos = New Collection
For Each celda In Range("Resma")
On Error Resume Next
unicos.Add celda.Value, CStr(celda.Value)
On Error GoTo 0
Next celda
For i = 1 To unicos.Count
Sheets("Hoja2").Range("B3").Offset(i - 1, 0).Value = unicos(i)
Next i

Application.ScreenUpdating = True

End Sub