Excel - Eliminar líneas repetidas en la misma celda

Línea 1;Línea 2;Línea 2;Línea 3

Sub Quita_Repetido()

    Dim Tabla() As String, Texto As String, Pun As Integer, Fila As Long

    Fila = 1

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

        Texto = ""

        Tabla = Split(Cells(Fila, "A"), vbLf)

        For Pun = 0 To UBound(Tabla)

            If InStr(Texto, Tabla(Pun)) = 0 Then Texto = Texto + Tabla(Pun) + vbLf

        Next

        Cells(Fila, "B") = Left(Texto, Len(Texto) - 1)

        Fila = Fila + 1

    Wend

End Sub