Macro To Highlight Range of a row a Certain Color Depending On Contents In a Cell

Sub Testing()

Dim LR As Long

LR = Cells(Rows.Count, 3).End(xlUp).Row

For i = 1 To LR
If Cells(i, 3).Value = "D" Then
Cells(i, 1).Resize(1, 5).Interior.ColorIndex = 3
End If
Next i

For i = 1 To LR
If Cells(i, 3).Value = "M" Then
Cells(i, 1).Resize(1, 5).Interior.ColorIndex = 5
End If
Next i

end sub

I did it for jen, i cant edit her posts but i reposted the code in the proper #.