Filtern und Summieren bzw. Sortieren

Sub Filter()
Dim i As Integer, iRows As Integer
iRows = Cells(Cells.Rows.Count, 1).End(xlUp).Row
For i = iRows To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(i, 1)) > 1 Then
Rows(i).Delete
End If
Next i
End Sub

Nun kommt aber das wirkliche Problem. Zu gleichen Aufträgen stehen in verschiedenen Spalten unterschiedliche Angaben. So sollen beispielsweise in Spalte O die verscheidenen Angaben zu einem Auftrag addiert werden. Und in Spalte R soll das früheste Baudatum zu einem Auftrag ausgegeben werden.
Und diese summierten bzw. frühesten Daten zu jeweils einer Auftragsnummer sollen am Ende mit der Filterfunktion zusammen in einer Zeile stehen.
Kann mir jemand hier weiterhelfen.