Was muss ich ändern ?

Sub Summary()
Dim liBlatt As Integer, lboNotOK As Boolean
For liBlatt = 1 To ThisWorkbook.Sheets.Count
If LCase(Sheets(liBlatt).Name) = "Daten" Then
lboNotOK = False
Exit For
Else
lboNotOK = True
End If
Next
If lboNotOK = True Then Exit Sub
Dim arr
Dim MyDicAA
Dim MyDicBB
Dim L As Long
arr = Sheets("Daten").Range("V10:AB2222")
Set MyDicAA = CreateObject("Scripting.Dictionary")
Set MyDicBB = CreateObject("Scripting.Dictionary")
For L = 1 To UBound(arr)
MyDicAA(arr(L, 1)) = MyDicAA(arr(L, 1)) + arr(L, 6)
MyDicBB(arr(L, 1)) = MyDicBB(arr(L, 1)) + arr(L, 7)
Next
With Sheets("Ergebnis")
.Range("A8").Resize(MyDicAA.Count) = WorksheetFunction.Transpose(MyDicAA.keys)
.Range("C8").Resize(MyDicAA.Count) = WorksheetFunction.Transpose(MyDicAA.items)
End With
End Sub

Also, der Code soll im Sheet "Daten" die Spalte V durchlaufen, sich alle Kategorien raussuchen, und die entsprechenden Preise in AA der einzelnen Kategorieren zusammenaddiert und nach "Ergebnis" schreiben.
Soweit sogut:
Nun zum Problem, die Spalten haben sich verschoben, also meine Kategorie steht nun statt in V in der Spalte AD. Ich muss nun in meiner Tabelle nicht mehr 6 Spalten weiter schauen (von V - AA) sonder 4 zurück (von AD nach V)
Was muss ich denn in meinem Code ändern, dass dieser wieder funktioniert ?
Danke Mandy