Este es el código de excel vba que quiero reducir esta vez se agradecería ayuda
If Weekday(i, vbMonday) = 6 Or Weekday(i, vbMonday) = 7 Or Sheets("QUADRANTE").Cells(y - 1, x).Font.ColorIndex = 7 Then
Sheets(mes).Range("B" & 7 + (Day(i) - 1) * 5 & ":B" & 11 + (Day(i) - 1) * 5).Interior.ColorIndex = 39
Sheets(mes).Range("B" & 7 + (Day(i) - 1) * 5 & ":B" & 11 + (Day(i) - 1) * 5).Font.Color = vbRed
Sheets(mes).Range("J" & 7 + (Day(i) - 1) * 5 & ":J" & 11 + (Day(i) - 1) * 5).Interior.ColorIndex = 48
End If
Sheets(mes).Range("C" & 1 + 7 + (Day(i) - 1) * 5 & ":G" & 1 + 7 + (Day(i) - 1) * 5).Interior.ColorIndex = 15
Sheets(mes).Range("C" & 3 + 7 + (Day(i) - 1) * 5 & ":G" & 3 + 7 + (Day(i) - 1) * 5).Interior.ColorIndex = 15
Sheets(mes).Range("C" & 7 + (Day(i) - 1) * 5 & ":G" & 7 + (Day(i) - 1) * 5).Interior.ColorIndex = 35
Sheets(mes).Range("C" & 2 + 7 + (Day(i) - 1) * 5 & ":G" & 2 + 7 + (Day(i) - 1) * 5).Interior.ColorIndex = 35
i
?