Extract List from one sheet to another with Unique Value (2 conditions)

[sunjam]

I have a code below that will extract rows from worksheet "Loan Search" to worksheet "ILQ" with criteria on column G.

The Need:
I would like to add a criteria that would extract only those with unique values in Column J.
There will be 2 conditions, criteria on Column G and unique values in Column J.

Dim iRowSearch As Integer
Dim iRowWrite As Integer
    
    iRowWrite = 3
    iRowSearch = Worksheets("ILQ").Cells(Rows.Count, "A").End(xlUp).Row
    iRowSearch = Worksheets("ILQ").Cells(Rows.Count, "B").End(xlUp).Row
    iRowSearch = Worksheets("ILQ").Cells(Rows.Count, "C").End(xlUp).Row
    iRowSearch = Worksheets("ILQ").Cells(Rows.Count, "D").End(xlUp).Row
    iRowSearch = Worksheets("ILQ").Cells(Rows.Count, "E").End(xlUp).Row
    iRowSearch = Worksheets("ILQ").Cells(Rows.Count, "F").End(xlUp).Row
    iRowSearch = Worksheets("ILQ").Cells(Rows.Count, "G").End(xlUp).Row
    iRowSearch = Worksheets("ILQ").Cells(Rows.Count, "H").End(xlUp).Row
    
    For iRowSearch = 2 To Worksheets("Loan Search").Cells(Rows.Count, "G").End(xlUp).Row
        
        If Worksheets("Loan Search").Cells(iRowSearch, "G").Value = Range("ILQ_LN").Value Then
        
                Worksheets("ILQ").Cells(iRowWrite, "a").Value = Worksheets("Loan Search").Cells(iRowSearch, "g").Value
                Worksheets("ILQ").Cells(iRowWrite, "b").Value = Worksheets("Loan Search").Cells(iRowSearch, "h").Value
                Worksheets("ILQ").Cells(iRowWrite, "c").Value = Worksheets("Loan Search").Cells(iRowSearch, "i").Value
                Worksheets("ILQ").Cells(iRowWrite, "d").Value = Worksheets("Loan Search").Cells(iRowSearch, "j").Value
                Worksheets("ILQ").Cells(iRowWrite, "e").Value = Worksheets("Loan Search").Cells(iRowSearch, "k").Value
                Worksheets("ILQ").Cells(iRowWrite, "f").Value = Worksheets("Loan Search").Cells(iRowSearch, "l").Value
                Worksheets("ILQ").Cells(iRowWrite, "g").Value = Worksheets("Loan Search").Cells(iRowSearch, "n").Value
                Worksheets("ILQ").Cells(iRowWrite, "h").Value = Worksheets("Loan Search").Cells(iRowSearch, "q").Value
                
                iRowWrite = iRowWrite + 1

        End If
    Next iRowSearch

please help.

Thanks,