エクセルVBAで、フィルターで表示されてる行のうち、特定の列だけ値を書き換えたい。

Question

データ分析に使うマクロを作成しています。
フィルターをかけて、可視行となっている行のうち、
特定の列のセルの値のみ、特定の値に書き換えたいのですが、
マクロがうまく動きません。
どのようなコードを書くと、
この処理が可能になるのでしょうか？

なお、コードを載せているものの、
目的の処理が達成できれば、
この関数や書き方にはこだわりません。

前提・実現したいこと

具体的には、
D列とB列でフィルターをかけた後で、
表示されている全ての行において、
C列の値を、ある一定の値に書き換えたいです。

発生している問題・エラーメッセージ

参照が不正または不完全です。

該当のソースコード

Worksheets("master").Range("A1").AutoFilter field:=4, Criteria1:="FALSE"
Worksheets("master").Range("A1").AutoFilter field:=2, Criteria1:="3"
Worksheets("master").Activate
        For Each c In .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible)
               Worksheets("mast.AutoFilterer").Range("C1").Value = Worksheets("block3正答").Range("F1")
        Next c

Answer 1

こんな感じでどうでしょうか。

    Dim masterSheet As Worksheet
    Set masterSheet = Worksheets("master")
    With masterSheet
        .Activate
        .Range("A1").AutoFilter Field:=4, Criteria1:="FALSE"
        .Range("A1").AutoFilter Field:=2, Criteria1:="3"
        For Each c In .AutoFilter.Range.Columns(3).SpecialCells(xlCellTypeVisible)
               c.Value = Worksheets("block3正答").Range("F1")
        Next c
    End With

Comments

[YYJP]

動きました！ありがとうございました！

[YYJP]

最初に頂いたアドバイスを、ベストアンサーにさせて頂きましたが、こちらのコードも問題なく動きました！

Answer 2

WithとEnd Withで囲いましょう

あと、シート名がまちがってます

mast.AutoFilterer　→　master

Worksheets("master").Range("A1").AutoFilter field:=4, Criteria1:="FALSE"
Worksheets("master").Range("A1").AutoFilter field:=2, Criteria1:="3"
Worksheets("master").Activate

With ActiveSheet
        For Each c In .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible)
               Worksheets("master").Range("C1").Value = Worksheets("block3正答").Range("F1")
        Next c
End With

Comments

[YYJP]

動きました！ありがとうございます！！