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