Fill Color row to specific column

Hi, i have this code below but it fills the entire row with gray color. I only want it to fill from columns A to F. Thanks

Application.ScreenUpdating = False
Dim lngLstCol As Long, lngLstRow As Long

lngLstRow = ActiveSheet.UsedRange.Rows.Count
lngLstCol = ActiveSheet.UsedRange.Columns.Count

For Each RngCell In Range("A19:A" & lngLstRow)
    If RngCell.Value > "" Then
        r = RngCell.row
        C = RngCell.Column
        Range(Cells(r, C), Cells(r, lngLstCol)).Select
            With Selection.Borders
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            If RngCell.row Mod 2 = 1 Then RngCell.EntireRow.Interior.ColorIndex = 15
    End If
Next

Application.ScreenUpdating = True

Originally Posted by mehmetcik

Application.ScreenUpdating = False

For Each RngCell In Range("A19:F" & 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.EntireRow.Interior.ColorIndex = 15
    End If
Next

Application.ScreenUpdating = True

Thanks mehmetcik but this still colors the entire row

Actually i got it...thanks

Application.ScreenUpdating = False

For Each RngCell In Range("A19:F" & 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

Application.ScreenUpdating = True