skip any row with an empty cell

hi all
I have an excel problem that I hope you can help me out with...
I have a code to Inserting blank row after every row with data

HTML Code: 

I try to find out how to skip any row with an empty cell but I could't

Thanks in advance !!

I am little confused about requirement. Try this if you are looking for that.
Add this line :

Please Login or Register  to view this content.

After this line :

Please Login or Register  to view this content.

First of all thank you for your time , but again,
I have a data in range (b8 ) to last used cell in column b
all cells with data expect some cells say : b15 b25 b27 b30
i need to Insert a blank row after every cell with data and skip any empty cell
Any suggestions ?

Ok. Then replace this line :

Please Login or Register  to view this content.

With this line :

Please Login or Register  to view this content.

sorry mr.sanram
it's stopping at the first empty cell

Hope it is clear

May be you are doing something wrong. Here is entire code. Just copy and paste this. Then let me know what happened there.

Please Login or Register  to view this content.

Hi mr.sanram,
Tested it out! It works like a charm!

Just a point :
I replaced Fr = ActiveSheet.Range("B8").Offset(1).Row
with
Fr = ActiveSheet.Range("B8").Row

Thank you very much for all this great help and for your patience with me
Have a good day from egypt.
Regards

You are welcome.

sorry mr.sanram
I tested the code again
if all cells are full with data it works for me and adds 1 empty row
if any cell is empty it works for me and adds 1 empty row after any empty cell
Please see the attached file for more details.
I'm sorry again

Then you want to remove the empty row, not to skip. Anyway. Here is the code for that :

Please Login or Register  to view this content.

Hi mr.sanram,
it works exactly as i hoped
Thank you veryyyyyyyyyyyyyyyyy much for your patience, time and solution, really appreciated.
Regards
Mokhtar

You are welcome.