Macro that only runs on 30k rows, but no more

Question

I have some VB script i found on line, it works well but as long as i ensure the worksheet has no more than 30k rows. I want to run it on a worksheet with 500k rows. When i try,