Hi I am trying to put data from two rows onto one row -

I have thousands of rows but I need help in coming up with a way o
doing the job in bulk.

The code below represents what I want to do i.e. take every even ro
(starting at row 8) and paste it onto the end of the previous row.


Sub Consol()

Range("A8:M8").Select
Selection.Cut
Range("A10:M10").Select
Selection.Cut
Range("A12:M12").Select
Selection.Cut

End Sub


Your help would be much appreciated.

Thanks

Bria

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