You can have a code like followingsub fill()Range("a65000".end(xlup)).offset(0,4).selectdo while activecell.row<>1if activecell = "" thenactivecell = "OX"end ifloop