For Each cell In myrange.SpecialCells(xlCellTypeConstants)
thisrow = cell.Row
dbstr = left(cell,2) ' paste to wb2 col 'a' row thisrow
newstr =mid(cell, 3,6) & "/" & right(cell,2) ' paste to wb2 col 'h' row thisrow

next cell


this is example of what I thought by using loop.

will also be taking other ranges and copying complete to other workbook no cell manipulation required

any help or suggestions

regards Alan