shift range of cells to left if find the range of empty do while

Hi,


I need some help , i want to shift data from left if find empty cell in a range do while shift data till range a1 to a7 the sample sheet is attached with before and after result. I need it for range not shifting columns

Thanks
farrukh