VBA to check Range then move if true

[Bob Phillips]

Off the top

[vba]

With Activesheet

Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 1 To Lastrow

If Left$(.Cells(i, "A").Value ,3) = "1Z8" Then

.Cells(i, "B").Value = .Cells(i, "A").Value
.Cells(i, "A").Value = ""
ElseIf Val(Left$(.Cells(i, "A").Value ,3) < 100 Then

.Cells(i, "D").Value = .Cells(i, "A").Value
.Cells(i, "A").Value = ""
ElseIf Left$(.Cells(i, "A").Value ,2) <> "TO" Then

.Cells(i, "C").Value = .Cells(i, "A").Value
.Cells(i, "A").Value = ""
End If
Next i
End With [/vba]