Visual Basic para Aplicaciones - Comparar columnas y después ordena datos

Option Explicit

Sub Macro_Biotico()

    Dim Codigo_A As String, Total_Lineas As Long, Fila As Long, _

        Codigo_B As String, Fin As Byte

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

    Total_Lineas = Range("A1").End(xlDown).Row

    Fila = 2

    Fin = 0

    While Fin = 0

        Codigo_A = Cells(Fila, 1)

        Codigo_B = Cells(Fila, 2)

        If Codigo_A = Codigo_B Then

           Range("C" & Fila & ":E" & Fila).Copy Range("I" & Fila)

        End If

        Fila = Fila + 1

        If Fila > Total_Lineas Then Fin = 1

    Wend

End Sub

Proceso has ultima linea

   Si Celda_A = Celda_B entonces

      Copia de la columna A a la F en el linea en columna A

      sumo 1 a linea

      sumo 1 a Celda_A

      sumo 1 a Celda_B

   else

      if Celda_A < Celda_B entonces

         copio Celda_A en la linea en columna A

         sumo 1 a linea

         sumo 1 a Celda_A

      else

         copio Celda_B a la F en la linea pero en columna B

         sumo 1 a linea

         sumo 1 a Celda_B

      fin Si

   fin Si

Fin Hasta

P2044965556	P2044965556	VEGA, SUZANNE (CA)	4Q15	28515	200

A0001  C0001  AAA  EQ15  1234

F0001  E0001  BBB  EQ15  6781

C0001

G0001

E0001

B0001

A0001

F0001

C0001  C0001  AAA  EQ15  1234

G0001

E0001  E0001  BBB  EQ15  6781

B0001

A0001

B0001

C0001  C0001  AAA  EQ15  1234

E0001  E0001  BBB  EQ15  6781

F0001

G0001