Shift cells right

[gary]

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

 

[Don Guillett]

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