Ayuda de VBA: buscar y copiar

No sé si el valor de su consulta está fijo en "EPS"

El código aproximado es el siguiente Sub?MC_TEST()

Establecer?SK ?=?Sheets( "Resultados de la consulta")

n?=?Application.InputBox("Ingrese el trimestre que desea consultar:",?"Recordatorio cálido",?,?,?,? ,?,?1)

Set?SHT?=?Sheets("Quarter"?amp;?n)

Set?Rng?=?SHT.Cells.Find(¿Qué :="EPS",?LookIn ：=xlFormulas，?LookAt：=xlWhole)

XR?=?SK.[A65536].End(3).Row ?1

SK.Range("A" ?amp;?XR)?=?Rng

SK.Range("B"?amp;?XR)?=?Rng.Offset(0,?1)

Fin ?Sub