copy rows from different worksheets into one worksheet

Hi

I am trying to use excel to generate html code. I would like to copy a row from each worksheet onto one worksheet. I have 16 worksheets. Once the first row is copied from each worksheet on different rows in the destination worksheet, i leave a blank row. then i copy the 2nd row from each worksheet and so on till we reach the last row on the first worksheet.

I am attaching a sample of the workbook. Sheet1 is the destination worksheet. I would like to thank everybody in advance for the same.

Cheers
Vivek

Hi,

Try this and sse if it's what you want.

The final html code sheet has to be the last, it can be modified though

Please Login or Register  to view this content.

Steffen Thomsen

thanks a lot steffen. great help... sorry about the delay in acknowleding your help. I modified it slightly to achieve the desired result.
////////////////////////////////
Sub steffen()

Dim w As Integer
Dim x As Integer

w = 2
x = 1

Dim ws As Worksheet

wsCount = ActiveWorkbook.Worksheets.Count

MsgBox (wsCount)

For r = 1 To 4 ' adjust to how many rows you need 2 copy
For i = 1 To wsCount
Sheets(i).Range("B" & w).Copy
Sheets(17).Range("A" & x).Insert
x = x + 1
Next i
w = w + 1
Next r
End Sub
///////////////////
Thanks a ton again.