Sheba_1

Dim Values As Range
Dim CurrentSheet As Worksheet
Set CurrentSheet = ActiveWorkbook.ActiveSheet
Set Values = Rows(5)

For j = 0 To 20
For i = 1 To Values.Cells.Count - 1
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
    Formula1:="=Delimit2!$A$" & i, Formula2:="=Delimit2!$B$" & i
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
    Color = -16383844
    TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
    PatternColorIndex = xlAutomatic
    Color = 13551615
    intAndShade = 0
End With

Next i
Next j

In this I code, I would like to increment column A to C and B to D after For loop of i gets over.