Return cell values for non-matching & matching criteria

Hey. I have a problem solving the following:

I have 2 sheets with different values. In row 1 in sheet 1 I have the values
AA AB & AC. Under these values i have other values. So under AA i have 2 and under AB i have 3 and under AC I have 4. In row 1 i sheet 2 i have values AA AB & AD. Under these values i also have values. So under AA i have 4, under AB i have 3 and under AD I have 2. I want to use vba to
write the following to a new sheet in the same workbook (sheet 3). The values AA AB, AC & AD in sheet 3 in row 1. and their corresponding values. This means AA in row 1 column 1 and in row 2 column 1 the value will be 2. In row 3 column 1 the value should be 4. In total this would look like:

Row 1: AA AB AC AD
Row 2: 2__ 3__ 4__ 0__
Row 3: 4__ 3__ 0__ 2__

This also means when there is not an entry the code needs to insert a "0".


How can i do this?