Macro to Insert Empty Row

[sridhar0v]

Hi All,
Could anyone please provide me a macro which has to scan a column in a Sheet and insert empty rows where the column cell Value in '1'.

Thanks,
Sri

 

[HalfAce]

Hi, and welcome to the board.
Assuming:
1) your column of interest is column B
2) you want to add a row below each value of 1 found in the column
. . . then perhaps something like this?

Sub InsertRowBelowOnes()
Dim LstRw As Long, Rw As Long
Application.ScreenUpdating = False
LstRw = Cells(Rows.Count, "B").End(xlUp).Row
For Rw = LstRw To 1 Step -1
  If Cells(Rw, "B") = 1 Then Rows(Rw + 1).EntireRow.Insert
Next Rw
Application.ScreenUpdating = True
End Sub

Note:
If your column is not column B, simply replace both references to "B" with the column you want.
If you want the row(s) added above the values of 1 (instead of below them) then just remove the + 1 in the If Statement.

Hope it helps.