Copiar y pegar - Criterio vacío Error

Buen día, tengo una pregunta sobre una macro que me da error. Estoy hacendó un filtro en una hoja y pegando los valores en otra. No se porque a veces, cuando no hay valores que cumplan el criterio del filtro no pega nada (Solo los encabezados de las columnas, lo cual me gustaría sacar pero no se como, borro la fila al final hasta ahora) y a veces, cuando no hay nada que cumpla el criterio me da error, se traba la macro. Siempre me pasa cuando pego en la columna 8, en las otras aunque no haya nada sigue ejecutándose. Cualquier ayuda sera bienvenida! Acá va parte del código
Selection.AutoFilter Field:=7, Criteria1:="Below 34"
Selection.AutoFilter Field:=6, Criteria1:="44"
Selection.CurrentRegion.Select
Selection.Resize(Selection.Rows.Count, 5).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Key Resources").Select
Range("F8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False --> aunque no haya nada que copiar, sigue perfecto
Sheets("Master List").Select
Range("m8").Select
Selection.AutoFilter Field:=7, Criteria1:="35-39"
Selection.AutoFilter Field:=6, Criteria1:="44"
Selection.CurrentRegion.Select
Selection.Resize(Selection.Rows.Count, 5).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Key Resources").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False --> me da DEBUG, si le agrego algo que cumpla el criterio sigue perfecto