Insert a row if column b has a blank line.

I have a macro that imports data but I also need it to insert a blank row when it encounters a blank row/column. Every row in column A has data. However, some of the rows in column B are blank. I want to check each row in column B and if it is blank, I want to insert a row above it. So if row 4 in column A had data and row 4 in coulmn B was blank, I'd insert a blank row here. Now line 4 is completely blank.

IMAGE

HOW TO LINK IN IMAGE ONE PATH TO ANOTHER PATH

Vishesh's picture

Please elaborate your

Please elaborate your question to get the context right.
Also, it should be in the Forum section.

Vishesh's picture

Insert row - Solution

Here is the solution by macro

ThisWorkbook.Worksheets("Sheet1").UsedRange.Columns("B").SpecialCells(xlCellTypeBlanks).EntireRow.Insert

Replace 'Sheet1' with the name of the sheet that you have.