Hi Norman Jones,

The code don't work right. It start at col "K" but stop writing th
other values to the other columns.

Range("IV" & myRow).End(xlToLeft)(1, 2).Value = _
myRange.Cells(i, j).Value

The above code is working except it always start next to empty cell
What I want how to specify it to start in col "K". The rest remai
unchange.

I even change the code to

Range("K" & myRow).End(xlToLeft)(1, 2).Value = _
myRange.Cells(i, j).Value

This also don't work. It still start next to the first empty cell.
actually need it to write in the values from Col "K" to Col "R".

Regards,
Michae

--
Message posted from http://www.ExcelForum.com