<P ID="edit" class=small>(Edited by bandido on 06-Mar-05 16:18. To add an extra detail.)</P>I am trying to extract rows of data from a worksheet that meet certain criteria. I have done this successfully with the following code:
x = Sheets("Scores").Range("A1").CurrentRegion.Rows.Co unt
For n = 1 To x
If Sheets("Scores").Range("AI" & n + 3).Value < 36 Then _
Sheets("Scores").Range("A" & n + 3).EntireRow.Copy _
"SortAlert" simply sorts the data in ascending order. My problem is that I wish to paste values and formats but not formulae to the destination but I'm experiencing difficulty in modifying the code. I'm sure that it's quite simple but I'm stumped for the moment.
Any help would be appreciated.