Search columns if value match's in three columns then pulls information

[jmcgillis14]

I want to pull the GL Code from List to and into the cells in column D. I would like to search List 2 and if date matches, vendor matches, and amount matches, then it pulls the GL Code from column H and populates column D.

List 1					List 2
Date	Vendor	Amount	GL Code (need this)		Date	Vendor	GL Code	Amount
5/1/2022	Wal Mart	5			1/1/2021	Cafe Fresh	4444	99
6/3/2019	Sams Club	99			1/5/2022	Amazon	7777	15
1/5/2022	Amazon	15			6/3/2019	Sams Club	8888	99
8/5/2021	Home Depot	6			8/5/2021	Home Depot	1515	60
					3/1/2019	Lowes	2020	65
					5/1/2022	Wal Mart	5555	5

Much appreciate the help!

 

[ZMyrrh]

Public Sub GlCode()
Dim i As Integer
Dim j As Integer

For i = 3 To WorksheetFunction.CountA(Range("a1:a3000"))
   
    For j = 3 To WorksheetFunction.CountA(Range("f1:f3000"))
       
        'if statement For Date
        If Cells(i, 1).Value = Cells(j, 6).Value Then
           
            'if statement For Vendor
            If Cells(i, 2).Value = Cells(j, 7).Value Then
           
                'if statement For Amount
                If Cells(i, 3).Value = Cells(j, 9).Value Then
               
                    Cells(i, 4).Value = Cells(j, 8).Value
               
                'end if For Amount
                End If
               
            'end if For Vendor
            End If
           
        'end if For Date
        End If
       
    Next j
Next i

End Sub

Hope this works!