cut row based on cell value and paste in another worksheet

[bristorms]

I need to cut an entire row in worksheet 1 "Sales Log" if column N contains "converted" and paste it in the next available row in worksheet 2 "converted". then i need it to delete the row in worksheet 1 so i don't have a blank row. i have managed to get it to cut a row and paste it in worksheet 2 by recording a new macro, but it keeps cutting the same row and pasting the same row on worksheet2 deleting what was previously there.

how can i edit the macro to do what i need it to do?

[JBeaucaire]

Post your code and we can help you edit it.

[bristorms]

Sub converted()
'
' converted Macro
' Macro recorded 4/9/2010 by rmcn
'
' Keyboard Shortcut: Ctrl+c
'
Range("N2").Select
ActiveCell.FormulaR1C1 = "converted"
Rows("2:2").Select
Selection.Cut
Sheets("Converted").Select
Range("A2").Select
Selection.Insert Shift:=xlDown
End Sub

[twhitezell]

try this, it works for what i've done in the past

Sub DeleteRowWithContents()
last = Cells(Rows.Count, "(Put the letter of the column that this phrase will bere here in quotes)".End(xlUp).Row
for i = Last to 1 Step -1 'this is if you are going all the way to the top of the book, if not you might want to change the to value
If(Cells(I, "(letter of the Column)" = "converted" Then
Cells(i, "A").EntireRow.Delete

Next i

End Sub

[JBeaucaire]

Try this:

Sub Converted()

    Range("N" & ActiveCell.Row) = "converted"
    Rows(ActiveCell.Row).Copy _
        Sheets("Converted").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    Rows(ActiveCell.Row).Delete xlShiftUp

End Sub

It will put the active row on the CONVERTED sheet at the bottom in the next empty row. The cursor can be anywhere in the row.