如果特定单元格等于范围中的“Fri”，则剪切并粘贴所有列

Question

我正在尝试开发一个VBA宏来剪切和粘贴所有列，如果一个特定的单元格在一个范围内等于“Fri”。它应该在最后一个空列之后粘贴所有剪切列。

你能帮我解决这个问题。请注意，范围将根据一个月中的天数而变化。

提前致谢！

原始

01 02 03 04 05 06 07 08 09

星期四星期四星期四星期二星期二星期三星期四星期五

结果

01 03 04 05 06 07 08 | 02 09

星期四星期二星期二星期二星期三星期四|星期五星期五