Paste Special Value when any row contains a specific value in any active cell

[BryanKaran]

i'm having trouble with this macro

Sub cond_copy()     'assuming the data is in sheet1
    Sheets("EDITED").Select
    RowCount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
    For i = 1 To RowCount
         'assuming the true statment is in column a
        Range("d" & i).Select
        check_value = ActiveCell
        If check_value = "•" Then
            ActiveCell.EntireRow.Copy
             'assuming the data is in sheet2
            Sheets("FINAL").Select
            RowCount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
            Range("a" & RowCount + 1).Select
            ActiveSheet.Paste
            Sheets("EDITED").Select
        End If
    Next
End Sub

This does the job, but copies the cells data in EDITED, I need to paste the values something like

ActiveSheet.[FONT=Droid Serif]PasteSpecial X[/FONT]

what is the x to choose values.

 

[ChrisM]

you had most of it already:

ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

 

[ChrisM]

*double post

 

[BryanKaran]

you had most of it already:

ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

I think this caused a different problem,

Application-defined or object-defined error

 

[ChrisM]

Try:

Range("a" & RowCount + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False