For Loop not iterating VBA

Question

I am trying to delete an entire row if the values in row i column 2 and row i column 3 are empty. My for loop only iterates once. Any idea why?

Sub DeleteEm()

R