Searching for data in column, if found Cut it paste on other sheet

[Theglyde]

I want to search Column "b" for "98" and if found (could be multiples line) I want those lines to be cut and pasted in a new sheet called "Diesel Discount"
This is what I got so far. If it Highlighs the first End With as error...

Sub Move_Diesel_Discount()
Dim LR As Long, i As Long
With Sheets("Discount Sheet")
LR = .Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To LR
With .Range("B" & i)
If .Value = "98" Then
.EntireRow.Cut Destination:=Sheets("Diesel Discount").Range("A" & Row.Count).End(xlUp).Offset(1)
End With
Next i
End With
End Sub

 

[Joe4]

Question regarding this code, if instead of looking for the value 98 specifically I wanted to search for anything between 510000 & 510010 and transfer those rows, how would I go about to doing so
how would I search all in one shot?

Just change this line:

If .Value = 98 Then

to this:

If (.Value >= 510000) And (.Value <= 510010) Then

 

[Theglyde]

Thanks

Happy thanks giving weekend if you are in Canada, if not have a great weekend