You will also need to increment rngCell.row so put the following above LOOPrngCell.row = rngCell.row + 1