ok but just note that the

Rows(i).Select

was onlu for test purpose, no need to it