This done the trick

Do While Not IsEmpty(ActSht.Cells(i, 1))