VBA for each文が上手くいかないです

Question

VBAで質問です
T列が終了の時、U列を解約の表示にしたいのですが、U列以外の列にも解約の表示がされてしまします。
VBAの書き方がどこが間違っているのかがわかりません。

Sub 終了を解約に変更()
Range("A3").AutoFilter 19, "終了"

With Range("A3").CurrentRegion.Offset(2, 0)
For Each R In .Resize(.Rows.Count - 2).SpecialCells(xlCellTypeVisible).Rows
R.Range("U1") = "解約"
Next R
End With

'絞り込みクリア
ActiveSheet.ShowAllData
End Sub