SuFu in einer Tabelle

Sub SuFu()
Dim o As Object, a, s As Double, z As Double
Set o = CreateObject("scripting.dictionary")
a = Worksheets("Tabelle2").Range("A1").CurrentRegion
For z = 2 To UBound(a) Step 45
For s = 2 To UBound(a, 2)
o(a(z, 1) & "|" & a(1, s)) = a(z, s)
Next
Next
z = Cells(42, 1).Value: s = Cells(43, 1).Value  ' hier halt die Werte von irgendwoher...
MsgBox "Der Wert für z = " & z & " / s = " & s & vbLf _
& " = " & o(z & "|" & s)
Cells(44, 1).Value = o(z & "|" & s)
z = 1
End Sub