Macro con filtro copiar y pegar

Tengo una hoja que se llama SCS donde el la columna A3 tengo un valor, en este caso flores, donde deseo realizar un filtro en la hoja de salarios y la información que esta allí desde la columna a la de deseo pegarlo en la hoja scs B37, pero cuando cambio el filtro no se ejecuta por que me trae flores y quiero que me traiga los dato de la celda a3 del libro scs

Su ayuda

Sub Macro1()
'
' Macro1 Macro
'
'
    Sheets("scs").Select
    Range("A3").Select
    Selection.Copy
    Sheets("salarios").Select
    ActiveSheet.Range("$A$1:$D$158030").AutoFilter Field:=1, Criteria1:= _
        "flores"
    Range("A1:D1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A1:D158031").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("scs").Select
    Range("B37").Select
    ActiveSheet.Paste
End Sub