Extraer datos de otra planilla con macro

Hola;
Tengo el siguiente problema, tengo una planilla de excel que tiene en las primeras 3 hojas una recopilación de información para crear una Base de Datos, en la 4ta hoja extraigo los mismos, por ejemplo:
Hoja 1.- Información general de la abreviaturas a usarse en toda la planilla.
Hoja 2.- Datos personales del cliente
Hoja 3.- Datos del producto
Hoja 4.- Extraigo información de:
El cliente A tiene el producto B, que compro en fecha 00/00/00, el producto A mientras no cumpla algunas algunos requisitos no puede estar vendido, entonces ese dato aparece en la hoja 3, como disponible.
Lo que necesito es los siguiente:
En la misma hoja 4 quisiera que me mostrará todos los productos disponibles, si ya esta con algún cliente asignado pero este no cumple con los requisitos sigue disponible.
He realizado una macro pero no me resulta, es la siguiente:
Sub Filtra()
Range("BaseDatos").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("J2:J3"), CopyToRange:=Range("A1:F1"), Unique:=False
Range("A1").Select
End Sub
Sub Auto_Open()
'Copiamos y pegamos, con pegado especial valores, las celdas y9.ab9
'que son las que generan la base de datos.
Range("AA15:AC15").Select
Selection.Copy
Range("'BD-TN'!B7:M1505").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'Nombramos la base de datos como basedatos
Range("B1").Select
Selection.CurrentRegion.Select
ActiveWorkbook.Names.Add Name:="BaseDatos", RefersToR1C1:= _
"=VentaMQ!B2:F17"
Range("A18").Select
End Sub
Sale error, la verdad no si esta bien o no, para que me muestre los datos tengo dos botones que uno indicar que muestre la ubicación del producto y el otro botón es para indicar el estado, si esta disponible, vendido o reservado.
Si quieres puedo enviarte la planilla para que la veas y me lo corrijas,
Espero tu pronto respuesta y muchas gracias.
Atentamente.
(xxxxxx)