Poner esto en un ciclo

If semana = 1 Then
Range("I" & renglón).Select
With Selection.Interior
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
End If
If semana = 2 Then
Range("J" & renglón).Select
With Selection.Interior
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
End If
If semana = 3 Then
Range("K" & renglón).Select
With Selection.Interior
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
End If
If semana = 4 Then
Range("L" & renglón).Select
With Selection.Interior
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
End If
If semana = 5 Then
Range("M" & renglón).Select
With Selection.Interior
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
End If

quiero meter todo esto en un ciclo si pudieras ayudarme por favor...

Saludos