VBA:オートフィルした行に色をつけたい

Question

前提・実現したいこと

オートフィルした行に色をつけたいのですが、
どこにコードを追加したらいいのかわかりません。

ご教授よろしくお願いいたします。

該当のソースコード

.Interior.Color = RGB(225, 255, 255) '背景色

このコードをどこにいれればいいのかが、わからなくて困っています。

Sub Filterdata()
'データを絞る

Dim MaxRow  As Long

MaxRow = worksheets("日程").Cells(Rows.Count, 11).End(xlUp).row

worksheets("日程").Range("K1") _
            .AutoFilter Field:=11, _
            Criteria1:=">=" & worksheets("Sheet1").Range("K5"), _
            Operator:=xlAnd, _
            Criteria2:="<=" & worksheets("Sheet1").Range("M5")

End Sub

Answer 1

    With Worksheets("日程").Range("K1").CurrentRegion.Offset(1, 0)
        .Resize(.Rows.Count - 1).Interior.Color = RGB(225, 255, 255) '背景色
    End With

Comments

[pomiw0000]

ありがとうございます！！