Insertar y recorrer celdas si son iguales

Hola Compañeros

Me ayudarían Con esto

Intente lo mas

Que pude pero no lo Logre

Lo que intento es que al organizar valores primero por fecha y después de mayor a menor

si son iguales

Me las deje en la Misma Fila delo contrario

Me baje el valor hasta que sea igual

este es mi codigo

Sub Conciliate()

C = Range("B" & Rows.Count).End(xlUp).Row

F = Range("F" & Rows.Count).End(xlUp).Row

If C > F Then

    For i = 2 To 500

        If Range("C" & i) = Range("F" & i) Then


        End If


        If Range("C" & i) <> Range("F" & i) Then

                If Range("C" & i) > Range("F" & i) Then

                Range("E" & i & ":F" & i).Insert Shift:=xlDown

                End If



                If Range("C" & i) < Range("F" & i) Then

            Range("B" & i & ":C" & i).Insert Shift:=xlDown


            End If

End If

Next i

End If

If C < F Then

    For i = 2 To 500

        If Range("C" & i) = Range("F" & i) Then


        End If


        If Range("C" & i) <> Range("F" & i) Then

                If Range("C" & i) > Range("F" & i) Then

                    Range("E" & i & ":F" & i).Insert Shift:=xlDown

                End If



                If Range("C" & i) < Range("F" & i) Then

            Range("B" & i & ":C" & i).Insert Shift:=xlDown


            End If

End If

Next i

End If






End Sub[/CODE]

Gracias

Corre yInsertar Celdas.rar