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...