Ordenar datos en listbox sin afectar la hoja activa

Aquí te dejo un ejemplo para que lo adaptes a tus necesidades:
Option Explicit
' Este ejemplo está basado en un un consejo de J.G. Hussey,
' publicado en el "Visual Basic Programmer's Journal"
Sub RemoveDuplicates()
Dim AllCells As Range, Cell As Range
Dim NoDupes As New Collection
Dim i As Integer, j As Integer
Dim Swap1, Swap2, Item
' Los elementos están en A1:A105
Set AllCells = Range("A1:A105")
' La siguiente declaración ignora el error ocurrido
' al intentar añadir una tecla duplicada a la colección.
' La duplicada no se añade - ¡y eso es justo lo que queremos!
On Error Resume Next
For Each Cell In AllCells
NoDupes.Add Cell.Value, CStr(Cell.Value)
' Nota: el segundo argumento (tecla) para el método Añadir debe ser una serie
Next Cell
' Resume el manejo de un error ordinario
On Error GoTo 0
' Actualiza las etiquetas en el UserForm1
With UserForm1
.Label1.Caption = "Elementos totales: " & AllCells.Count
.Label2.Caption = "Elementos únicos: " & NoDupes.Count
End With
' Tipo de colección (opcional)
For i = 1 To NoDupes.Count - 1
For j = i + 1 To NoDupes.Count
If NoDupes(i) > NoDupes(j) Then
Swap1 = NoDupes(i)
Swap2 = NoDupes(j)
NoDupes.Add Swap1, before:=j
NoDupes.Add Swap2, before:=i
NoDupes.Remove i + 1
NoDupes.Remove j + 1
End If
Next j
Next i
' Añadir el tipo, elementos no duplicados al Cuadro de lista
For Each Item In NoDupes
UserForm1.ListBox1.AddItem Item
Next Item
' Mostrar el UserForm
UserForm1.Show
End Sub