VBA Filtern, wenn Filter leer nichts tun

Sub Umwandeln_formatieren_FKE()
Sheets("Ergebnistabelle FKentrieg.").Select                                                  _
_
Columns("A:A").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.EntireColumn.Hidden = False
Range ("B13:AS22").Select                                                                    _
_
Selection.Copy
Range("B24").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Selection.AutoFilter
_
_
'Filtern nach LAH und Temperatur laut Spalte AA2-9)
ActiveSheet.Range("$B$24:$K$67").AutoFilter Field:=2, Criteria1:="=LAH", _
Operator:=xlOr, Criteria2:=Sheets("Ergebnistabelle FKentrieg.").Range("AA2").Value
Selection.Copy
Range("B90").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub