imbedded if statements in a for loop

[Dlhans]

I have a set of spreadsheets/data that will be downloaded for different files. The data are parced by day, date and time. Different times on different days are required to be treated differently with mathematical functions later. The code I wrote initially shifted some of the data over to new columns, but not all relevant datum. Originally, I had >= in the conditionals.

the code is here:

Public Sub Saver_Choice()
Dim Length As Integer
    Length = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To Length
        If Cells(i, 1).Value = "Saturday" Then
            Cells(i, 4).Value = Cells(i, 4).Value
        ElseIf Cells(i, 1).Value = "Sunday" Then
            Cells(i, 4).Value = Cells(i, 4).Value
        Else
            If Cells(i, 3).Value = "10:00" Then
                Cells(i, 6).Value = Cells(i, 4).Value
                Cells(i, 4).Value = 0
            ElseIf Cells(i, 3).Value = "11:00" Then
                Cells(i, 6).Value = Cells(i, 4).Value
                Cells(i, 4).Value = 0
            ElseIf Cells(i, 3).Value = "12:00" Then
                Cells(i, 6).Value = Cells(i, 4).Value
                Cells(i, 4).Value = 0
            ElseIf Cells(i, 3).Value = "13:00" Then
                Cells(i, 6).Value = Cells(i, 4).Value
                Cells(i, 4).Value = 0
            ElseIf Cells(i, 3).Value = "14:00" Then
                Cells(i, 6).Value = Cells(i, 4).Value
                Cells(i, 4).Value = 0
            ElseIf Cells(i, 3).Value = "15:00" Then
                Cells(i, 5).Value = Cells(i, 4).Value
                Cells(i, 4).Value = 0
            ElseIf Cells(i, 3).Value = "16:00" Then
                Cells(i, 5).Value = Cells(i, 4).Value
                Cells(i, 4).Value = 0
            ElseIf Cells(i, 3).Value = "17:00" Then
                Cells(i, 5).Value = Cells(i, 4).Value
                Cells(i, 4).Value = 0
            ElseIf Cells(i, 3).Value = "18:00" Then
                Cells(i, 5).Value = Cells(i, 4).Value
                Cells(i, 4).Value = 0
            ElseIf Cells(i, 3).Value = "19:00" Then
                Cells(i, 5).Value = Cells(i, 4).Value
                Cells(i, 4).Value = 0
            Else
            End If
        End If
    Next i
            
    
    
    
End Sub

Any suggestions would be greatly appreciated.

Thank you.