If, then, copy programming

I was able to get this to work as a separate macro below, but when I try to put them together it is not copying all the way down.

Sub cols()
Dim i As Long
With ActiveSheet
    For i = 7 To Range("B" & Rows.Count).End(xlUp).Row
        .Range("E" & i & ":I" & i).Interior.ColorIndex = .Range("B" & i).Interior.ColorIndex
    Next i
End With
End Sub