perhaps:[VBA]Sub blah()
For Each cll In Columns("B:B").SpecialCells(xlCellTypeConstants, 2).Cells
cll.Offset(, 2).Resize(, 2).Cut cll.Offset(, 5)
Next cll
[/VBA]
p45cal Everyone: If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.
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.