Solved: Find N, Insert N and Shift down

[sasa]

Can anyone help me with the following?

(Please see the attached file ...)

I want to move the text in red Sunday shifts) from columns D and E and insert this in columns G and H as in my example

Any help you can provide is really appreciated.

Thanks.

Sasa

[p45cal]

perhaps:Sub blah()
For Each cll In Columns("B:B").SpecialCells(xlCellTypeConstants, 2).Cells
cll.Offset(, 2).Resize(, 2).Cut cll.Offset(, 5)
Next cll

[sasa]

Thank you, but maybe there is a misunderstanding. In my example the start point is on the left and the result I hope to get is on the right. In other words I need a macro that find (N), in my example (N) are the strings on sundays (MED7- MED2-MED4- GER1) and insert them in the column S and T just as in my example on the right.

Thanks in advance

[mohanvijay]

Try the button in "Foglio2" sheet

[sasa]

Thank you mohanvijay
It works like a charme !

Thank you again