Interior Color every other row

I cant seem to figure out why its not coloring every other row to the entire data but stops half way through. Can someone please take a look at this. Thanks

For Each RngCell In Range("A19:H" & ActiveSheet.UsedRange.Rows.Count)
    If RngCell.Value > "" Then

            With RngCell.Borders
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With

            If RngCell.Row Mod 2 = 1 Then RngCell.Interior.ColorIndex = 15
    End If
Next