Sub Demo1()
[F1].CurrentRegion.Clear
Application.ScreenUpdating = False
With [A1].CurrentRegion.Resize(, 4).Columns
.Item(4).Formula = "=A1&""¤""&B1<>A2&""¤""&B2"
.Item(4).AutoFilter 1, True
.Item("A:C").Copy [F1]
.AutoFilter
.Item(4).Clear
End With
Application.ScreenUpdating = True
End Sub