Sub insetRows()

Set sh = Sheets("Sheet1")
rw = sh.Cells(65500, 1).End(xlUp).Row

For c = rw To 1 Step -1
If sh.Cells(c, 1) = "X" Then sh.Cells(c, 1).EntireRow.Insert
Next

End Sub


" skrev:

I have a problem. How to insert a row below a cell that contains a
given sign? For example, I need to insert a new row below every cell
that contains x? X is in in every row in column A.