Pessoal, boa tarde! Tudo bem?

Gostaria de definir o filtro de uma tabela (Table1) de acordo com o valor que está em uma célula, mas esse valor se altera ocasionalmente. Após esse filtro, essa tabela será copiada e colada em outro lugar. Tentei fazer por gravação, mas o código é lido com o valor e não com o caminho para a célula que contém o valor. A célula está na sheet "FY", célula "AR98". Alguém pode me ajudar, por favor?

Sheets("FY").Select
    Range("AR98").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:= _
        "=*16*", Operator:=xlAnd
    ActiveWindow.SmallScroll Down:=-42
    Range("B1:AD209").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 1
    Sheets("Sheet4").Select
    ActiveWindow.SmallScroll Down:=87
    Range("A100").Select
    ActiveSheet.Paste
    Rows("101:101").Select
    Selection.RowHeight = 15
    ActiveWindow.SmallScroll Down:=-9
    Rows("100:100").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.RowHeight = 15
    Range("F108").Select

Obrigado.
Jean