With Workbooks(myFile).Sheets("Sheet1")
.Activate
.AutoFilterMode = False
.Range("AH2").AutoFilter
.Range("AH2").AutoFilter Field:=1, Criteria1:=myKey
If .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then
With .Range(HCFile_StartColumn).CurrentRegion
.Resize(.Rows.Count - 2, 14).Offset(2, 2).SpecialCells(xlCellTypeVisible).Copy
End With
End If
End With