Changing range in VBA to lastrow

So i have this VBA code

Option Explicit

Sub ValuesByColors()

Const Blk = 0
Const DkGray = 65535
Const LtGray = 12632256
Const OW = 16777215
Dim r As Range

Application.ScreenUpdating = False


For Each r In Range("A1:Q11").Cells
    Select Case r.Interior.Color
       Case Is = Blk
            r.Value = 0
       
       Case Is = DkGray
            r.Value = 3
       
       Case Is = LtGray
            r.Value = 10
                 
        Case Is = OW
            r.Value = 21
    End Select
Next r

Application.ScreenUpdating = True


End Sub

but i want the range of which
"For Each r In Range("A1:Q11").Cells"
to change to last row but the following does not work

Option Explicit

Sub ValuesByColors()

Dim lastrow As Long
 lastrow = Range("A" & Rows.Count).End(xlUp).Row

Const Blk = 0
Const DkGray = 65535
Const LtGray = 12632256
Const OW = 16777215
Dim r As Range

Application.ScreenUpdating = False


For Each r In Range("D1").AutoFill Destination:=Range("D1:S" & lastrow)
    Select Case r.Interior.Color
       Case Is = Blk
            r.Value = 0
       
       Case Is = DkGray
            r.Value = 3
       
       Case Is = LtGray
            r.Value = 10
                 
        Case Is = OW
            r.Value = 21
    End Select
Next r

Application.ScreenUpdating = True


End Sub

Originally Posted by pjwhitfield

In your 1st one you're not Autofilling? is that meant to be there in the amended code?

Yeah thats the Original Code
I'm trying to ammend that code to be the second code, but the second code doesn't work.

Essentially i want the range of which the values are placed to be lastrow
so the range would be
"D1:S & Lastrow"

Originally Posted by Norie

Does this work?

For Each r In Range("D1:S" & lastrow)

Or do you only want to loop through a particular column?

huh..... who knew the answer would be so simple.
Thanks that works perfectly haha!