Sub RH()
Application.ScreenUpdating = False
Dim i&
For i = 3 To 376
If Weekday(Range("B" & i), 2) > 5 Then
Range(Cells(i, "C"), Cells(i, "H")) = "RH"
End If
If Weekday(Range("B" & i), 2) = 3 Then
Range(Cells(i, "C"), Cells(i, "H")) = "DS"
End If
Next i
Application.ScreenUpdating = True
End Sub