How to search, cut and paste using VBA

[clwrs]

I am trying to alter my coding to accomplish a search, cut and paste function. I am trying to determine how I may be able to search out the first 3 numbers/letters in one cell and if it finds a cell with those, it will then cut the entire row and paste it into another page inside of the worksheet. Please let me know if the coding that I have done so far can be tweaked or if something else entirely different will be needed. Thanks for your help.

...

Dim cell As Range
       
With Sheets("Position")
For Each cell In .Range("E2", .Range("E" & Cells.Rows.Count).End(xlUp))
If Left(cell.Text, 3) = "995" Then
cell.Copy Destination:=Sheets("CCY"). _
Range("E" & Cells.Rows.Count).End(xlUp).Offset(1, 0)
End If
Next cell
End With
End Sub