Hello,

I am tring to copy the entire row from one sheet and past as value to
another sheet. Since I need to continue this for all the rows which meet
conditions I set up, I need to move rows to past all of them.

The codes I have now a


Sheets("JGB").Select
Range("A4").Select

Do Until ActiveCell.Value = ""
If ActiveCell.Offset(0, 18).Value = "Payment" Then

'If ActiveCell.Offset(0, 18).Value = "Payment" Then

Application.CutCopyMode = False
ActiveCell.EntireRow.Select
selection.Copy

Sheets("JGB Coupon Sort").Select
Rows("2:2").Select
selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("JGB").Select

Else

End If

ActiveCell.Offset(1, 0).Select

Loop


With the codes above, I will keep pasting rows in the same row... I think I
need to use something like

Selection.Insert Shift:=xlDown

but this does not past data as value.

Could anyone please show me how to insert the entire row as value?

Thank you.
nk