VBA-Compare sheets and copy values from second sheet - excel

Question

I am trying to compare two workbooks and copy the 5th column to the 5th column first workbook if the first 3 columns match.
This check has to be done throughout the worksheet.
Worksheet 1:
| Heading 1 | Heading2 | Heading 3 | Total | Number1 |
|-----------|----------|-----------|-------|---------|
| ABC | EF | GH | | |
| XYZ | AB | EF | | |
| HIK | IJ | PQ | | |
Worksheet 2:
| Heading 1 | Heading2 | Heading 3 | Total | Number1 |
|-----------|----------|-----------|-------|---------|
| QRS | EF | GH | | 5 |
| XYZ | AB | EF | | 4 |
| DEF | QR | IV | | 16 |
| HIK | IJ | PQ | | 8 |
Desired output:
| Heading 1 | Heading2 | Heading 3 | Total | Number1 |
|-----------|----------|-----------|-------|---------|
| ABC | EF | GH | | |
| XYZ | AB | EF | | 4 |
| HIK | IJ | PQ | | 8 |
I tried to do the following, but it didn't work:
Dim i As Integer
Sheets("Sheet1").Activate
For i = 2 To 100
ActiveSheet.Cells(i,5).Select
ActiveCell.FormulaR1C1 = "=IFERROR(IF(AND(Table2[#[Heading1]]=Consolidated!RC[-4],Table2[#[Heading2]]=Consolidated!RC[-3],Table2[#[Heading3]]=Consolidated!RC[-2]),Table2[Number1],"" ""),"" "")"
Next i
I am a VBA novice and would be grateful for any help.

Answer 1

You can do this with formulas, no need for code. I'll assume that "Heading 1" is in cell A1 for this: Add a new column between heading 3 and Total. In the first cell add the formula =A2&B2&c2 and copy down. Do the same in the other workbook. Now in Number1 in the first book enter this formula
=IFERROR(OFFSET([OtherWorkbook]SheetName!D2,MATCH(D2,[OtherWorkbook]Sheetname!D2:D5),2),"")
(Using your workbook and sheet names. Now copy down. You can then hide the column we added at the start by setting its width to zero in both books.