VBA to check Range then move if true

[Bob Phillips]

[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 IsNumeric(Left$(.Cells(i, "A").Value, 3)) And 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]