Macro for listbox items to be added as per criteria

I want to add the items in listbox having criteria of hrs <=50 and >=40 in data,all items has to display in listbox
Every time when I change cell F2 i.e. "hrs "and its criteria , a macro has to delete old list items and add new items as mentioned in above fashion as per "hrs" criteria
see attached file-

hi
i have added a list box and button to your sheet and the following code

Private Sub CommandButton1_Click()
Dim Mycell, Myrng As Range
Dim usedrng As String
Dim lastrow As Integer

lastrow = Cells(Rows.Count, 1).End(xlUp).Row
Sheet2.ListBox1.Clear
usedrng = "D4:D" & lastrow
Set Myrng = Sheet2.Range(usedrng)

For Each Mycell In Myrng
    If Mycell >= Sheet2.Range("I2").Value And Mycell <= Sheet2.Range("H2").Value Then
        Sheet2.ListBox1.AddItem Mycell.Offset(0, -3)
        Sheet2.ListBox1.List(ListBox1.ListCount - 1, 1) = Mycell.Offset(0, -2)
        Sheet2.ListBox1.List(ListBox1.ListCount - 1, 2) = Mycell.Offset(0, -1)
        Sheet2.ListBox1.List(ListBox1.ListCount - 1, 3) = Mycell
        
    End If
Next
End Sub

Hi
Sean Thomas
Thanx, what ever you coded is working fine , little more addition to the same list box

If the J17 to J27 >0 then check same criteria and then add in the listbox
including the value in 5th column like J17=2 (which is >0)then do the same old for loop but add J17 value in 5th column to all items which is matching the criteria then go to J18 =-5 then leave it then go to J19=5 then again do same old for loop add value of J19 to 5th column and so on.. see attached file for more clarification
Thanx in advance

J17
2
-8
5
0
0
-1
9
6
4
9
8
9

Sorry I attached incomplete file see attached here as criteria will be different every time which row value >0 the same row > and < criteria has to be consider

Criteria
2 -23.1 -15.1
-8 -15.1 -7.1
5 -7.1 0.9
0 0.9 8.9
0 8.9 16.9
-1 16.9 24.9
9 24.9 32.9
6 32.9 40.9
4 40.9 48.9
9 48.9 56.9
8 56.9 64.9
9 64.9 72.9

I think this is what you mean

Hi sean ,
thanx for replay but pl. refer latest attached file where I mentioned "sorry " in my last post. ,Don't wast your time I have done it.Thanx for you attention.
I need help -
1)Is it possible to add fixed header in activex lisbox to all 5 columns where it is picking data and then add items bellow headers? like..

|srno| ,|programe no|, |less than or greater than| ,|hrs|,|sum of bases|

2)Also how to handle the error if any vale having #error or "####" in any cell .

2
-8
#Val or any error due to formula error
0
0
-1
9
6
4
9
8
9

you can only use headers in a list box if you add a list range that has headers above the columns.
When you add items using a loop etc you cannot use the headers.
I usually place the list box below a row and then make the cells above it the same size as your values in the listbox. You can then put your headers above the list box.

As for your last question

try adding the line

On error resume next

above the line

For Each Mycell In Myrng