If one cell in range is not empty, the all range must be not empty.

Hello
I´m trying to do this in VB:
If one (or any) cell in the range A1:A6 is not empty, then all range cells must be not empty.
If not, cancel save and show msg box.

Please help me.
Regards
Claudio.