vba -excel -how to check and compare cell value against next cell's value in same column

Private Sub CommandButton1_Click() Dim i As Integer, j As Integer, temp As Integer, rng As Range Set rng = Range("A1").CurrentRegion For i = 1 To rng.Count For j = i + 1 To rng.Count If rng.Ce...