This might be a silly question but why not use

PasteSpecial - Transpose ???

This should save you a lot of grief.

"Karaman" wrote:

I created a macro to convert data from rows to columns, but I need the
command to insert in the Do Loop in order to repeat the same process for the
next row(s). The data is available in each row where the first four cells
are a title followed by 48 cells with data in each 4 cells for a month. The
mothly data needs to be converted to column form. This was done easily in a
macro, but how do I repeat the same process fore the next row(s)?