Copiar un rango Variable en otra hoja

Hola

tengo el siguiente problema necesito extraer los datos que se encuentran en la hoja 1 y copiarlos en la hoja 2.

en la hoja 1 la columna a corresponde a los código del cliente y en la columna b a los productos adquiridos, lo que necesito es buscar al cliente y extraer todos los productos que adquirió y copiarlos en la hoja 2.

hice la siguiente macro que estaba en su foro:

Sub EXTRAERPRODUCTOS()
Sheets("Consolidado").Range("x8").Select
Dim por As Integer
For por = 1 To 1000
If ActiveCell.Value <> Sheets("Cta Cte").Range("b6").Value Then
ActiveCell.Offset(1, 0).Select
Else
If ActiveCell.Value = Sheets("Cta Cte").Range("b6").Value Then
direccion = ActiveCell.Address
ActiveCell.Copy
Sheets("Cta Cte").Select
Range("d8").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
Sheets("Consolidado").Select
Range(direccion).Select
ActiveCell.Offset(1, 0).Select
End If
End If
Next x
End Sub

pero me arroja un error de # ref. Ya que el código con qie se alimenta la hoja 1 lo extraigo de otra hoja. Entonces se da que un cliente puede tener mas de un producto y no se como copiar los datos que aparecen en la columna b y llevarlos a la hoja 2 y que aparezcan sin error si no como dato.

ruego de su ayuda.

Saludos,

Mario