Finding non blank cell in therange of columns (B to the right end) and replac with

I am having data in first column, but want to copy any non blank cells of the row with the data in the first column for that ROW

and continue for all the rows down till the end

please help

thanks Mike

attached is the file

i was expecting the macro to replace all zero(non blank cells in the row) with the first cell in the row

Thanks

Thanks mike

It is doing but it is copying the column header for all the non-blank cells

Instead

I wanted the values in column A to be copied to non-blanks of the row...

for example cell D2 should be replaced with value from A2
similarly cell B14 should be replaced with value from A14
Cell 22 should be replaced with value from A22

all values from coulmn A should be moved/copied to the non-blank cell to the right of cloumn A

Thanks

s

Thanks mike

It is doing but it is copying the column header for all the non-blank cells

Instead

I wanted the values in column A to be copied to non-blanks of the row...

for example cell D2 should be replaced with value from A2
similarly cell B14 should be replaced with value from A14
Cell 22 should be replaced with value from A22

all values from coulmn A should be moved/copied to the non-blank cell to the right of cloumn A

Thanks

s

is not working

each non-blank in the row should be replaced by left most cell in the same row
Thanks
S

SOLVED

IT WORKED !! Wonderful

thanks MIKE