please note that I would like to do all this using VBA, and no excel functions.

Thanks