How to remove or delete blank cells

Hello Everyone!

Please help me to remove or delete the blank row cells. I've attached sample workbook for your reference.


Thank you

Try:

Sub DeleteBlankRows()
    Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Do the following: Save the workbook as a macro-enabled file. This will change its extension to "xlsm". Hold down the ALT key and press the F11 key. This will open the Visual Basic Editor. In the menu at the top click 'Insert' and then click 'Module'. Copy and paste the macro into the empty code window that opens up. Press the F5 key to run the macro. Close the code module window to return to your sheet. There are other quicker ways to run the macro such as assigning it to a button that you would click on your sheet or assigning it to a short cut key. If you are still having problems, please let me know.

You are very welcome.

Click the "View" tab in the top menu.
Click the top part of the "Macros" button on the far right.
Click on the macro name in the list and then click the "Options" button on the right.
Enter a letter of your choice in the box to the right of "Ctrl+"
Enter a description (optional).
Click "OK".
Close the pop up window.
When you want to run the macro, while holding down the CRTL key, press the letter you had entered in the box to the right of "Ctrl+"

My pleasure.