VBA to insert row based on criteria

Do the cells in col I contain the number 1, or is the 1 included with some other text ?

Hi,

Column I only contains the line number of an order so will only be numbers, no text.

Thanks

Please post a sample of the number format

In column I, the numbers are relevant to the number of lines an order has, for example if an order has four lines and the next order two lines the numbers will appear as follows...

<TABLE style="WIDTH: 17pt; BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=23 border=0><COLGROUP><COL style="WIDTH: 17pt; mso-width-source: userset; mso-width-alt: 736" width=23><TBODY><TR style="HEIGHT: 21pt; mso-height-source: userset" height=28><TD class=xl63 style="BORDER-RIGHT: #e0dfe3; BORDER-TOP: #e0dfe3; BORDER-LEFT: #e0dfe3; WIDTH: 17pt; BORDER-BOTTOM: #e0dfe3; HEIGHT: 21pt; BACKGROUND-COLOR: transparent" align=right width=23 height=28>1</TD></TR><TR style="HEIGHT: 21pt; mso-height-source: userset" height=28><TD class=xl63 style="BORDER-RIGHT: #e0dfe3; BORDER-TOP: #e0dfe3; BORDER-LEFT: #e0dfe3; BORDER-BOTTOM: #e0dfe3; HEIGHT: 21pt; BACKGROUND-COLOR: transparent" align=right height=28>2</TD></TR><TR style="HEIGHT: 21pt; mso-height-source: userset" height=28><TD class=xl63 style="BORDER-RIGHT: #e0dfe3; BORDER-TOP: #e0dfe3; BORDER-LEFT: #e0dfe3; BORDER-BOTTOM: #e0dfe3; HEIGHT: 21pt; BACKGROUND-COLOR: transparent" align=right height=28>3</TD></TR><TR style="HEIGHT: 21pt; mso-height-source: userset" height=28><TD class=xl63 style="BORDER-RIGHT: #e0dfe3; BORDER-TOP: #e0dfe3; BORDER-LEFT: #e0dfe3; BORDER-BOTTOM: #e0dfe3; HEIGHT: 21pt; BACKGROUND-COLOR: transparent" align=right height=28>4</TD></TR><TR style="HEIGHT: 21pt; mso-height-source: userset" height=28><TD class=xl63 style="BORDER-RIGHT: #e0dfe3; BORDER-TOP: #e0dfe3; BORDER-LEFT: #e0dfe3; BORDER-BOTTOM: #e0dfe3; HEIGHT: 21pt; BACKGROUND-COLOR: transparent" align=right height=28>1</TD></TR><TR style="HEIGHT: 21pt; mso-height-source: userset" height=28><TD class=xl63 style="BORDER-RIGHT: #e0dfe3; BORDER-TOP: #e0dfe3; BORDER-LEFT: #e0dfe3; BORDER-BOTTOM: #e0dfe3; HEIGHT: 21pt; BACKGROUND-COLOR: transparent" align=right height=28>2</TD></TR></TBODY></TABLE>

These are all in separate rows and are located in column I, so what I would like the macro to do is insert a row above the 1 each time a 1 appears.

Thanks

Dim c As Range, rng

Set rng = Range("i2:i" & Range("i65536").End(xlUp).Row)

For Each c In rng

If InStr(c, "1") Then

c.Offset(1, 0).EntireRow.Insert shift:=xlDown

End If
Next c

For Each c In rng
If c.Value = "" Then
c = c.Offset(-1, 0)
c.Offset(-1, 0) = ""
End If
Next c

Hi,

Thanks very much for the code, I have a problem though.

I have data before the column I, a row is being inserted from column I to colun IV after this the loop is then inserting another row up to column I.
Because of this my data is slightly out of sync.

I have tried to amend the code but failed horribly.

Thanks

Dim c As Range, rng

Set rng = Range("i2:i" & Range("i65536").End(xlUp).Row)

For Each c In rng

If InStr(c, "1") Then

c.Offset(1, 0).EntireRow.Insert shift:=xlDown

End If
Next c

For Each c In rng
If c.Value = "" Then
c.Offset(-1, 0).EntireRow.Copy
c.EntireRow.Select
ActiveSheet.Paste
c.Offset(-1, 0).EntireRow.ClearContents

End If
Next c

Perfect,

Thanks very much for your help.

I will now attempt to disect the code to make sense of it!

Hi Steve,

how to include a formula as like unequal, more then,

Example;
A