Insertar y recorrer celdas si son iguales

[enrux]

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