ALL I NEED IS FOR IT TO ADVANCE FROM THE END OF LAST CELL IN COLUMN RANGE TO THE THE TOP OF THE NEXT COLUMN.<br>I WROTE THIS SCRIPT TO SELECT MY RANGE AND IT SELECTS FINE BUT AND WILL PROBABLY END LOOP AT T46 BUT IT BLOWS RIGHT PAST THE LAST CELL IN THE 1ST COLUMN H<br><br>[H1].Select<br> nextlastrow = 1<br>ReallyLastRow = [H1].SpecialCells(xlCellTypeLastCell).Row<br>Range("H" & nextlastrow & ":T" & ReallyLastRow).Select<br>[H1].Select<br><br>readcell:<br>Do Until ActiveCell.Range("$T$" & ReallyLastRow) = ActiveCell.Address<br><br>THE REST IS IF STATEMENTS AND ACTIONS ..... READING EACH CELL FROM TOP TO BOTTOM THEN ACROSS.