hi
your code is coping all date from the last row in column F that has data up
or meaning all rows have should have data. you would get into problems if
there was data below the last cell in F .
copy all?
Replace all code from Sheets("A").Select to ActiveSheet.Paste with this....
Sheets("A").Activate
Cells.Copy
Worksheets.Add(After:=Worksheets(Worksheets.Count) ).Name = "B"
ActiveSheet.Paste

regards
FSt1

"Gemz" wrote:

Hi,

I have a code but cant figure out how to change it so its just copies
everything rather than filter and then copy, the reason it filters is because
i copied this code from a filer code (but did think i removed all the filter
code bit.. obviously not!)

I think it might be this bit that is causing the problem: lastrow =
Cells(Cells.Rows.Count, "F").End(xlUp).Row
Set myrange = Range("F1:F" & lastrow)


All the code:

Sub CTS()
Sheets("A").Select
Dim myrange, copyrange As Range
Set copyrange = Rows(1).EntireRow
lastrow = Cells(Cells.Rows.Count, "F").End(xlUp).Row
Set myrange = Range("F1:F" & lastrow)
For Each c In myrange


Set copyrange = Union(copyrange, c.EntireRow)

Next
copyrange.Copy
Worksheets.Add(After:=Worksheets(Worksheets.Count) ).Name = "B"
ActiveSheet.Paste
With ActiveSheet
.Range("D:D,H:I,K:L,N:U,W:AD,AF:AT,AV:IV").Delete

End With

Worksheets("B").Activate
Cells.Select
Cells.EntireColumn.AutoFit
Cells.EntireRow.AutoFit
With Application
.DisplayAlerts = True
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub


thanks alot.