copying entire row from one sheet to another

Originally Posted by EddyAddelan

hey T-J,
the code that u gave me works fine, but now a new problem has raised...
the problem by your code is that, it pastes the info from sheet1, but then it pastes the new info from sheet2 OVER infos from sheet1...

That's because it always pastes starting at row 2 (IntS = 2).
You need to get the last used row on the results sheet and paste to the row after:

Dim lastRow As Long
lastRow = wSht.Cells.SpecialCells(xlCellTypeLastCell).Row    'last used row on results sheet

rngC.EntireRow.Copy wSht.Cells(lastRow + 1, 1)   'paste to row after

Note the use of a Long Integer type instead of Integer (max 32,767) to prevent overflow.