VBA delete rows based on AND IF condition

Try this

Sub DeleteRows()
Dim lLastRow As Long, i As Long
lLastRow = Range("G65536").End(xlUp).Row
For i = lLastRow To 2 Step -1
    With Cells(i, "G")
        If .Offset(, 1).Value = "USD" And .Value <= 10000 Then
            .EntireRow.Delete
        ElseIf .Offset(, 1).Value = "EUR" And .Value <= 8000 Then
            .EntireRow.Delete
        ElseIf .Offset(, 1).Value = "GBP" And .Value <= 5000 Then
            .EntireRow.Delete
        End If
    End With
Next
End Sub