Das liest sich für mich nach "named tuple" und das gibt es so in VBA nicht.
Am einfachsten wäre das mit WVERWEIS:
=WVERWEIS(DATWERT("1.1.2021");$H$4:$Q$8;1+1;FALSCH)
+1 ist dein laufender Index.