This is what i ahve have..it works great with only one criteria

Sub SampleLoop2()

'On Error Resume Next

Const sSSName As String = "Labels"
Const Locality As String = "Locality Info"
Dim sh As Worksheet
Dim lLR As Long
Dim i As Long
Dim r As Long
Dim sq As Long
Dim result1 As Variant
Dim result2 As Variant
Dim result3 As Variant
Dim result4 As Variant
Dim result5 As Date
Dim result6 As Variant
Dim Loc As Range
Set Loc = Sheets("Locality Info").Range("A:F")

For Each sh In ThisWorkbook.Worksheets
        If sh.Name <> sSSName Then ' if the sheet doesnt equal label sheet
        If sh.Name <> Locality Then
            
            r = sh.Range("F" & sh.Rows.Count).End(xlUp).Row
                    For i = 4 To r
                        lLR = Sheets(sSSName).Range("B" & Sheets(sSSName).Rows.Count).End(xlUp).Row + 1 'bottom row on the labels sheet
                        
                                result1 = Application.WorksheetFunction.VLookup(sh.Range("F" & i), Loc, 4, False)
                                result2 = Application.WorksheetFunction.VLookup(sh.Range("F" & i), Loc, 5, False)
                                result3 = Application.WorksheetFunction.VLookup(sh.Range("F" & i), Loc, 1, False)
                                result4 = Application.WorksheetFunction.VLookup(sh.Range("F" & i), Loc, 3, False)
                                result5 = Application.WorksheetFunction.VLookup(sh.Range("F" & i), Loc, 2, False)
                                result6 = Application.WorksheetFunction.VLookup(sh.Range("F" & i), Loc, 6, False)
                                
                                Sheets(sSSName).Range("B" & lLR).Value = result1 & ": " & result2 & " Co." & Chr(10) & _
                                                                         result3 & Chr(10) & _
                                                                         result4 & Chr(10) & _
                                                                         Format(result5, "dd MMM yyyy") & Chr(10) & _
                                                                         result6 & Chr(10)
                                

                                                                         lLR = lLR + 1
                        End With


                    Next 'i
        End If 'sh.Name
        End If
Next 'sh

End Sub
Now that i ahve collected data from teh same areas the lookup range ("F" & i) has the same data present but the next column ("G" & i) has the coresponding data that i went out

waht i need is for this to Use both Column F and G to find the values

here is the worksheet

Collection Sheet1.xlsm