Hi
If you want to copy a sheet with "Planned" in A1 do this

If sh.Range("A1").Value = "Planned" then
sh.Copy
end if

Your code is a bit higgledy-piggledy after that. You don't seem to
paste the sheet anywhere within the same loop and then you seem to
start selecting other things in another loop.
Sorry to not be more help!
regards
Paul