I am trying to match up 2 columns of data, Column1 has some missing rows and I would like to delete the same rows from Column 2 so they only show the same data. This needs to check from the top down.
Example
1 1
2 2
3 3
5 4
6 5
7 6
7
In this example, it would delete Row 4 from Column 2. This is what I have so far, but not having any luck
[VBA]
Sub Insert()
Dim rng As Range, i As Integer
'Set the range to evaluate to rng.
Set rng = Range("A1:A2000")
If rng.Cells(i, "F").Value != rng.Cells(i, "B").Value Then rng.Cells(i, "E:G").Delete Shift:=xlUp
End Sub[/VBA]