Add a row above

[krunal123]

Following from this thread

hello I am using the following code

Sub try()
Dim c As Range
For Each c In Range("A1:A100")
If c.Value Like "DEMAND" Then
c.Offset(1, 0).EntireRow.Insert
End If
Next c
End Sub

but using the above code I am getting blank rows below the DEMAND row I want the blank row to be added over the Demand row

we Need add raw Above how to chnage this code

 

[Michael M]

Try

Sub try()
Dim c As Long
For c = 100 To 2 Step -1
If Cells(c, 1) Like "DEMAND" Then Rows(c).Insert
Next c
End Sub

 

[krunal123]

WE NEED ROW ABOVE "TO" TEXT