I have a color in Col D in my Pivot table on several rows.

I have tried to write code to clear this and also to remove text in Bold, but nothing happens when running the macro


it would be appreciated if someone could kindly assist me


 Sub Clear_Colors()
   Sheets("Pivot Table").Select
Dim lr As Long, i As Long


For i = 4 To Step - 1

lr = Cells(Rows.Count, "d").End(xlUp).Row
       Range("D" & i & ":D" & lr).Interior.Pattern = xlNone
             Range("D" & i & ":D" & lr).Font.Bold = False
           
                
    

  Next i

End Sub