can anyone tell me what is the wrong with this loop? Excel is not going inside this loop.

Do While R(j).Value < R(j - 1).Value And j 1
k = 1
temp = R(j).Value
R(j).Value = R(j - 1).Value
R(j - 1).Value = temp
j = j - 1
Loop


Thanks