Selectie geen resultaat

[RdS]

Goedendag,

Ik maak gebruik van een macro om bepaalde data op te halen uit verschillende sheets.

Hieronder is te zien dat Hospitality met F7 geselecteerd wordt en gekopieerd.

Het probleem.
Het kan voorkomen dat er geen data is die zowel Hospitality als F7 heeft.

Wat voor stukje VBA kan ik ertussen zetten zodat wanneer geen resultaat, dat er verder wordt gegaan met het volgende stukje.


Wat er nu gebeurd is dat het resultaat leeg is, cel A12 t/m A65650 wordt gekopieerd en dat geprobeerd om te plakken. Wat uiteraard niet de bedoeling is.

ActiveSheet.Range("$A$12:$H$15000").AutoFilter Field:=3, Criteria1:= _
"Hospitality"
ActiveSheet.Range("$A$12:$H$15000").AutoFilter Field:=6, Criteria1:= _
"=*F7*", Operator:=xlAnd
Range("A12").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy

Wie kan mij helpen?