VBA : SEARCHING problem

[SamT]

If ComboBox1.Value = "" And ComboBox2.Value = "" And ComboBox3.Value < ComboBox4.Value Then
     
    For sat = 2 To Sheets("Sheet2").Cells(10000, "a").End(xlUp).Row
        If UnknownValue >= (ComboBox3.Value - 150000) And s <= (ComboBox4.Value - 150000) Then
            ListBox1.AddItem Sheets("Sheet2").Cells(sat, "A").Resize(1, 9)
            UnknownValue = UnknownValue + 1
        End If
    Next
End If