thanks Vcoolio, it is now transferring if i run the macro each time, it is now saying no cells were found and highlighting Columns("A").SpecialCells(4).EntireRow.Delete?