how to paste special only value in this code?

[jay11]

hi,
i have this code it work but now i need only value to b paste in new sheet how can i do pl help i try that comment part but it give me error 1004 Application-define or object define error

     

           Set rBFind = ws.Range("A:A").FindNext(rTFind)
                sname = Format(Day(Int(rTFind.Offset(-1))) + 1, "DD")
                If Not Evaluate("=ISREF('" & sname & "'!A1)") Then    'create sheet if needed
                    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = sname
                Else                                                      'clear sheet if it exists
                    Sheets(sname).Move After:=Sheets(Sheets.Count)
                    Sheets(sname).Cells.Clear
                End If
                ws.Rows(rTitle).Copy Sheets(sname).Cells(rTitle, "A")
                If rBFind.Address <> rFirst.Address Then
                ws.Range(rTFind.Offset(-1), rBFind.Offset(-2)).EntireRow.Copy _
                Sheets(sname).Cells(rTitle + 1, "A")
                'ws.Range(rTFind.Offset(-1), rBFind.Offset(-2)).EntireRow.Copy
                'Sheets(sname).Range(Cells(rTitle + 1, "A")).Paste 'Special.x1Value
                
                Else
                    ws.Range(rTFind.Offset(-1), ws.Cells(LR, "A")).EntireRow.Copy _
                            Sheets(sname).Cells(rTitle + 1, "A") '.PasteSpecial.x1Value
                            
                End If

in this segment i get error

                'ws.Range(rTFind.Offset(-1), rBFind.Offset(-2)).EntireRow.Copy _
                Sheets(sname).Cells(rTitle + 1, "A")
      ''' i change this to next one   


                ws.Range(rTFind.Offset(-1), rBFind.Offset(-2)).EntireRow.Copy
                Sheets(sname).Range(Cells(rTitle + 1, "A")).Paste 'Special.x1Value

thanks for any help.