Shift cells right
 

Is there a way to move cells whose contents begin with '0A' from Col B
to Col C?

Shift cells right
 

On Jan 24, 12:36*pm, gary wrote:
Is there a way to move cells whose contents begin with '0A' from Col B
to Col C?

option explicit
sub moveem()
dim c as range
for each c in range("a2:a22")
if ucase(left(c,2))="0A" then
c.offset(,1)=c
c=""
end if
next c
end sub