VBA Abfrage ergänzen

Sub AufträgeAktualisieren()
Dim owb1 As Workbook
Dim owb2 As Workbook
Application.ScreenUpdating = False
Set owb1 = ThisWorkbook 'Arbeitsmappe mit diesem Code
Sheets("Aufträge").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Range("A3:D15000").Clear
'*************In diesem Bereich Abfrage nötig ****************
Set owb2 = Workbooks.Open("X:\AV-VK-SD\Auftragsbuch_neu.xls", ReadOnly:=True)
ActiveSheet.Range("$B$3500:$H$11000").AutoFilter Field:=9, Criteria1:="=CR", _
Operator:=xlAnd
ActiveSheet.Range("$B$3500:$H$11000").AutoFilter Field:=8, Criteria1:="="
Range("B3500:E11000").Copy
owb1.Activate
Worksheets("Aufträge").Range("A3").PasteSpecial
Application.CutCopyMode = False         'Zwischenablage löschen
owb2.Activate
ActiveWindow.Close SaveChanges:=False
owb1.Activate
Application.ScreenUpdating = True
Range("A72").Select
Sheets("Alle").Select
MsgBox "Abgleich mit Auftragsbuch erfolgreich"
Range("B6").Select
Application.ScreenUpdating = True
End Sub