ws.Cells(iRow, 1).PasteSpecial Paste:=xlPasteValues

--

Regards,
Nigel




"Jennifer" wrote in message
...
How do i write in a paste special code for only the values? Thank you my
dear
gurus.

Sub Post()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Database")
' find first empty row in database
'iRow = ws.Cells(Rows.Count, 1) .End(xlUp).Offset(1, 0).Row
iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
Worksheets("Filter").Range("FilterDatabase").Copy ws.Cells(iRow, 1)
end sub
--
Thank you,

Jennifer