Insert new Row

[KK1966]

Hi
Any one can help me the VB code to rows count by column B when if column A cells value = mascross” than insert a rows on above the cells “mascross”.

Your help I highly appreciate
Thanks very much

[Bob Phillips]

[vba]
With Activesheet

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = LastRow - 1To 1 Step -1

If .Cells(i, "B").Value2 = "mascross" Then

.Rows(i + 1).Insert
End If
Next i
End With
[/vba]