Ausgabe verändern!!

Hallo,
ich habe von Tino (Danke nochmal :-)) folgenden Code:

Sub ListeIds(oDic As Object)
Dim ArrData, ArrAus(), n&, nn&, nCount&
With Tabelle7
ArrData = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 3)
End With
ReDim ArrAus(1 To UBound(ArrData), 1 To 3)
For n = 1 To UBound(ArrData)
If oDic.exists(ArrData(n, 1)) Then
nCount = nCount + 1
For nn = 1 To UBound(ArrData, 2)
ArrAus(nCount, nn) = ArrData(n, nn)
Next nn
End If
Next n
With Tabelle6
'    Application.EnableEvents = False
.Range("C52:G" & Rows.Count).Clear
If nCount > 0 Then
With .Range("C52").Resize(nCount, 3)
.Value = ArrAus
.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
.HorizontalAlignment = xlCenter
End With
End If
'    Application.EnableEvents = True
End With
End Sub