This code : I changed sheet1 to sheet2.

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 s >= (ComboBox3.Value - 150000) And s <= (ComboBox4.Value - 150000) Then


ListBox1.AddItem
ListBox1.List(s, 0) = Sheets("Sheet2").Cells(sat, "A")
ListBox1.List(s, 1) = Sheets("Sheet2").Cells(sat, "B")
ListBox1.List(s, 2) = Sheets("Sheet2").Cells(sat, "C")
ListBox1.List(s, 3) = Sheets("Sheet2").Cells(sat, "D")
ListBox1.List(s, 4) = Sheets("Sheet2").Cells(sat, "E")
ListBox1.List(s, 5) = Sheets("Sheet2").Cells(sat, "F")
ListBox1.List(s, 6) = Sheets("Sheet2").Cells(sat, "G")
ListBox1.List(s, 7) = Sheets("Sheet2").Cells(sat, "H")
ListBox1.List(s, 8) = Sheets("Sheet2").Cells(sat, "I")
s = s + 1


End If: Next

End If