insert blank row if the left(cell,3) is different then one above

[johnnyhammer]

I need to insert a blank row if the left, 3 does not match. the code below, does not separate correctly.

Application.ScreenUpdating = False


Dim iRow As Integer, iCol As Integer
Dim oRng As Range


Set oRng = Worksheets("doc1").Range("A2")


iRow = oRng.Row
iCol = oRng.Column


Do
'
If Cells(Left(iRow + 1, iCol), 3) <> Cells(Left(iRow, iCol), 3) Then
    Cells(iRow + 1, iCol).EntireRow.Insert shift:=xlDown
    iRow = iRow + 2
Else
    iRow = iRow + 1
End If
'
Loop While Not Cells(iRow, iCol).Text = ""


Application.ScreenUpdating = True
End Sub

 

[Fluff]

How about

Sub johnnyhammer()
   Dim i As Long
   
   With Sheets("doc1")
      For i = .Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
         If Left(.Cells(i, 1), 3) <> Left(.Cells(i - 1, 1), 3) Then
            .Rows(i).Insert
         End If
      Next i
   End With
End Sub