How can I insert a value based on row and column

How can I tell VBA to select whatever is in A9, use the value in A9 (which is B5), then go to B5 and insert a value 22 (which is in B9).

The output should look something like this:

22 value inserted in B5. Is there a way I can do this using excel formula or VBA programming language.