i did try that but still giving error
ws.Range(rTFind.Offset(-1), rBFind.Offset(-2)).EntireRow.Copy
                Sheets(sname).Cells(rTitle + 1, "A").PasteSpecial xlPastevalues