Copy contents based on a criteria (Cell value) using VBA

[deepakdgl]

Hi all,
I have a below requirement. (Please view image before reading further). Requesting your support.

https://pasteboard.co/GCyJnZW.png

1) The macro should check cells A1,C1,E1,G1,I1 and find the most advanced phase. (These cells can hold any values Phase 1 to Phase 5. Two or more cells can hold the same value too.). Phase 5 is most advanced.
2) Based on the most advanced phase, the macro should copy the respective contents and paste it. eg: In the Image,Phase 5 is advanced (Cell I1), it should copy cells E5:E14 and paste it on H5:H14.

Another example:
If A1=C1=E1=Phase 2 and G1=I1= Phase 1, the macro should copy cells B5:B14 and paste on cells H5:H14 since phase 2 is advanced.

Thanks in advance,
Deepak

 

[deepakdgl]

Updated Image: Pasteboard — Uploaded Image