Code not working - move rows when cell is less than zero

Code updated with friends suggestion...

    Range("BU2").Select 
    Do Until Selection.Value = ""
         If Range("BU2").Value <= 0# Then 
          Rows("2:2").Copy
            Sheets("Queries").Select
                Rows("1:1").Select
                Selection.Insert Shift:=xlDown
                Application.CutCopyMode = False
            Sheets("Just Giving").Select
                Application.CutCopyMode = False
                Selection.EntireRow.Delete
            Range("Bu2").Select 
            Else
               Selection.Offset(1, 0).Select
         End If
      Loop

------------------------------------------------------------------
I have been using the following code for last 2 years and it's worked fine. But I can't understand why it no longer works.

Some background: I have a payment file with two sheets (Queires & Just Giving) the code is supposed to move any rows to the Queries sheet when the payment cell (BU2) is equal to or less than zero (<=)

    
Range("BU2").Select
        Selection.Sort Key1:=Range("BU2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal 

Range("BU2").Select 'BU
    Do While Selection.Value > 0
         If Range("BU2").Value <= 0 Then 'BU
          Rows("1:1").Copy
            Sheets("Queries").Select
                Rows("1:1").Select
                Selection.Insert Shift:=xlDown
                Application.CutCopyMode = False
            Sheets("Just Giving").Select
                Application.CutCopyMode = False
                Selection.EntireRow.Delete
            Range("Bu2").Select 'BU
            Else
               Selection.Offset(1, 0).Select
         End If
      Loop

Hi wishmaker. When displaying code, we ask that you use code tags around your code as per rule #3. You have used html tags which are different. I will fix this for you but please remember to use code tags in the future.

Thank you.

The following gives me pause

Do While Selection.Value > 0
     If Range("BU2").Value <= 0 Then

where your criteria to step into the loop is if the selection "BU2" is greater than 0 and then inside the loop you want to copy the rows where "BU2" is less than or equal to 0. My understanding is that your if statement won't work because of your do while statement.

If this is solved, please acknowledge the solution so that others will know if they should happen to peruse this thread.

Thanks!