Below is the code to insert data require into another excel workbook, it is
pasting it vertical as in a1 a2 a3 etc i need it to paste a1 b1 c1 etc.
Please help.

lngRow = wsDest.Cells(Rows.Count, "A").End(xlUp).Row + 1

wsDest.Range("A" & lngRow).Resize(rngTemp.Rows.Count, _
rngTemp.Columns.Count) = rngTemp.Value

End With

wbBook.Close True

Neil; why dont you try recording a macro with transpose and modify your code
to suit..

If this post helps click Yes
---------------
Jacob Skaria


"Neil Holden" wrote:

Below is the code to insert data require into another excel workbook, it is
pasting it vertical as in a1 a2 a3 etc i need it to paste a1 b1 c1 etc.
Please help.

lngRow = wsDest.Cells(Rows.Count, "A").End(xlUp).Row + 1

wsDest.Range("A" & lngRow).Resize(rngTemp.Rows.Count, _
rngTemp.Columns.Count) = rngTemp.Value

End With

wbBook.Close True