Compare 2 columns, add blank rows

[hobgoblin]

Hi all, What i have is two columns. In the 1st one there are a lot of doubles, the second 1 doesnt have any. What im trying to do is to compare these two columns and to adjust the second one so it has the same length as the 1st. So I am adding blank row if necessary.

Ex Column1 Column 2 Output
1 1 1
1 2
2 3 2
3 4 3
4 5 4
4
5 5

Puhleeeeaaaaassssse Thanks.

[Jacob Hilderbrand]

Try this.

Option Explicit
 
Sub InsertRows()
Dim i               As Long
Dim LastRow         As Long
LastRow = Range("A65536").End(xlUp).Row
For i = 1 To LastRow
        If Range("B" & i).Text <> Range("A" & i).Text Then
            Range("B" & i).Insert Shift:=xlDown
            i = i + 1
        End If
    Next i
End Sub

[hobgoblin]

Looks very promissing TY

[hobgoblin]

That's it !!!!!! Thank you DRJ. Just when you think you know excel, you find out that you are a total noob ( That's my case) Anyhow, again, thanks a whole lot, you just saved me about 4-5 hours of coding/ testing. Bye

[Jacob Hilderbrand]

You're Welcome

Take Care