I'm running on empty with the following matter.
Writing this in a cell it works fine:
Now, in my VBA code:
lastcol + 1 = column in which you can find the values to sum
lastcol + 2 = column in which you can find the criteria