Search Column "b" for specific Value and cut paste it to another sheet

[Theglyde]

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

 

[dreid1011]

What exactly is your question?

 

[Fluff]

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