copying entire row from one sheet to another

Originally Posted by T-J

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.

where should i insert those codes exactly ?

Originally Posted by EddyAddelan

where should i insert those codes exactly ?

At the top, after the variable declarations:

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

In the copy/paste Do..Loop (replace what's there):

rngC.EntireRow.Copy wSht.Cells(lastRow + 1, 1)
lastRow = lastRow + 1
Set rngC = .FindNext(rngC)