Visual Basic - Pasar de una lista a otra sólo los no repetidos

Sub Copia_A_to_B()

    Dim Fila_A As Long, Fila_B as Long, Fila As Long, Existe as Boolean

    ' ---&--- Busco la primera celda vacia de la columna B

    Fila_B = 1

    While Cells(Fila_B, "B") <> ""

       Fila_B = Fila_B + 1

    Wend

    ' ---&--- Recorro la columna A hasta la primera celda vacia

    Fila_A = 1

    While Cells(Fila_A, "A") <> ""

        ' --- Compruebo si existe

        Existe = False

        For Fila = 1 To Fila_B - 1

            If Cells(Fila_A, "A") = Cells(Fila, "B") Then Existe = True: Exit For

        Next

        ' --- Si no existe la añade

        If Not Existe Then

            Cells(Fila_B, "B") = Cells(Fila_A, "A")

            Fila_B = Fila_B + 1

        End If

        Fila_A = Fila_A + 1

    Wend

End Sub