I'm cutting and pasting a row that contains the numbers 4,5 or 6 I have some code thats working fine, but I'm sure there is an easier way to write it.

Here's what I have:

Trim(.Cells(R, "K").Value) = "4" Or Trim(.Cells(R, "K").Value) = "5" Or Trim(.Cells(R, "K").Value) = "6"


Thanks for any help!