If ve Vlookup Formula with Macro

Hi,
I can find the results according to three variables with using IF (eğer) and VLOOKUP (düşeyara) formula. But l will use this formula 1500 difference cells, therefore can be shortened with macro?

Formula:

=EĞER(Q3="DH1";DÜŞEYARA(R3;$B$3:$O$10;$X$4;0);EĞER(Q3="DH2";DÜŞEYARA(R3;$B$11:$O$18;$X$4;0);EĞER(Q3="DH3";DÜŞEYARA(R3;$B$19:$O$26;$X$4;0);EĞER(Q3="DH4";DÜŞEYARA(R3;$B$27:$O$34;$X$4;0);EĞER(Q3="DH5";DÜŞEYARA(R3;$B$35:$O$42;$X$4;0);0)))))

Macros can be shortened with the following?
=value(target;A;B;C) as.

I've added a sample file.
Thanks.
Regards.