VBA code to delete row if cell does not match following cell

[mfh1287]

I am trying to figure out a VBA code to look at cell C2 and C3 to see if they are the same - if they are not, I want row 2 to be deleted. Sometimes there are three cells in a row that contain the same value and I would want to keep those.

I hope that this makes sense - if anyone can help I would greatly appreciate it. Thanks!

 

[ZAX]

Is This What You Want?

Sub DeleteRows()
If Range("c2").Value <> Range("c3").Value Then
   Range("2:2").Delete
End If
End Sub

ZAX

 

[mfh1287]

Is This What You Want?

Sub DeleteRows()
If Range("c2").Value <> Range("c3").Value Then
   Range("2:2").Delete
End If
End Sub

ZAX

Yes, thank you. Could you loop it so that it will perform this until the end of the data?

 

[ZAX]

Could you loop it so that it will perform this until the end of the data?

Yes, I Can.

Sub DeleteRows()
Set data = Range("c2:c" & Cells(Rows.Count, 3).End(xlUp).Row)
For Each cell In data
    If cell.Value <> cell.Offset(1, 0).Value Then
       cell.EntireRow.Delete
    End If
Next
End Sub

ZAX