Filter source WB with multiple criteria using VBA instead of Excel function

[adambc]

Cell B1 = Firstname
Cell B2 = Surname
Cell B3 = =FILTER('https://sharepointpath/[SOURCEWB.xl...POINTPATH/[SOURCEWB.xlsx]SHEETNAME'!$K:$K=B2),"")

... which returns an array of values from column A of the source WB if column Jof the source WB = B1 AND column Kof the source WB = B2

Works perfectly but I'd like to rewrite this in VBA for consistency (B1 & B2 are populated by a VBA Sub using InputBoxes)

But can't get my head round how to do it?

Thanks ...

 

[adambc]

IGNORE!

It's wonderful what a good night's sleep does, is it?!

This is my solution ...

Sub IDList()

wbSourceName = "SOURCEWB.xlsx"
wbSourcePathName = "SHAREPOINTPATH" & wbSourceName
Set wbSource = Workbooks.Open(wbSourcePathName)

lrSource = wbSource.Sheets(1).Range("A" & Rows.Count).End(xlUp).Row

With wbSource

    For i = 2 To lrSource

lrIDList = ThisWorkbook.Sheets(1).Range("D" & Rows.Count).End(xlUp).Row
nrIDList = lrIDList + 1

        If .Sheets(1).Cells(i, 10) = ThisWorkbook.Sheets(1).Cells(1, 2) And .Sheets(1).Cells(i, 11) = ThisWorkbook.Sheets(1).Cells(2, 2) Then
            ThisWorkbook.Sheets(1).Cells(nrIDList, 4).Value = .Sheets(1).Cells(i, 1).Value
        End If

    Next i

End With

wbSource.Close

End Sub