Hi Missy,

Try:

'============
Public Sub Tester001()
Dim rng As Range
Dim rcell As Range
Dim i As Long
Const col As String = "A" '<<==== CHANGE

For i = Selection.Rows.Count To 2 Step -1
With Cells(i, col)
If .Value < .Offset(-1).Value Then
.EntireRow.Insert
End If
End With
Next i
End Sub
'<<============

Change the value of the col constant to reflect your column of interest.

---
Regards,
Norman



"MissyLovesExcel" wrote in
message ...
Similar to "SubTotal" without the subtotal, i'm looking to create a macro
that will search for a change in column info and insert a blank row
between.
Can you help?