Copy marked rows to new sheet

Great! It works as far as creating the new sheet, and naming it properly. However, now an error occurs when it tries to paste into the new sheet. Should I try to put this into option explicit? (esp. since the rest of the workbook this will be integrated into always has option explicit as well....) I'm not exactly sure how to do that...

Sub sortbyX()

'Application.ScreenUpdating = False
    
    UsedRange.AutoFilter
    ActiveSheet.UsedRange.AutoFilter Field:=2, Criteria1:="x"
    Selection.SpecialCells(xlCellTypeVisible).Copy
    Sheets.Add.Name = "Timeline"
    Application.CutCopyMode = False
    Sheets(1).Range("A1").Paste 'error appears here "object doesn't support this property or method"
    Sheets(2).ShowAllData
End Sub

the error now reads "application-defined or object-defined error" in the same place :-/

thanks for sticking with me

the error is still in the same place in the code. I had to change the sheet reference number to 1 in the beginning, becuase at first, it is the first sheet. the timeline sheet is inserted at the beginning, which changes the reference number of any sheet that will follow it...

Sub sortbyX()

'Application.ScreenUpdating = False
    
    UsedRange.AutoFilter
    Sheets(1).UsedRange.AutoFilter Field:=2, Criteria1:="x"
    Sheets(1).UsedRange.SpecialCells(xlCellTypeVisible).Copy
    Sheets.Add.Name = "Timeline"
    Application.CutCopyMode = False
    Sheets(1).Range("A1").PasteSpecial
    Sheets(2).ShowAllData
End Sub

i know... it's confusing.... in the beginning, the sheet with the information is sheet 1, then when the new sheet is added, it becomes second because the new sheet is first. I tried it out like this:

Sub sortbyX()

'Application.ScreenUpdating = False
    
    UsedRange.AutoFilter
    Sheets(1).UsedRange.AutoFilter Field:=2, Criteria1:="x"
    Sheets(1).UsedRange.SpecialCells(xlCellTypeVisible).Copy
    Sheets.Add.Name = "Timeline"
    Application.CutCopyMode = False
    Sheets(2).Range("A1").PasteSpecial
    Sheets(1).ShowAllData
End Sub

and it tried to copy onto the sheet where it copied FROM in the first place...

I'm trying to integrate this function into the main workbook now, and I'm running into problems with defined objects (I think).

This is the code as it stands:

Option Explicit


Private Sub Worksheet_Activate() 'when the "Timeline" worksheet is activated

Dim ws As Worksheet
Dim lngLast As Long
Const strForbiddenWorksheetNames As String = "ALL#FTW#APP#ACC"
'Application.ScreenUpdating = False

Me.Cells.Clear
Worksheets("FTW SS12").Rows(1).Copy _
  Destination:=Me.Rows(1)


For Each ws In ThisWorkbook.Worksheets
    If InStr(1, strForbiddenWorksheetNames, ws.Name, vbTextCompare) = 0 Then
     
        lngLast = ws.Cells(Rows.Count, 1).End(x1up).Row 'error arrives here saying "x1up" isn't defined, however it also was not in the code I copied it from
        ws.Range("A2:AB" & lngLast).AutoFilter Field:=2, Criteria1:="x"
        ws.Range("A2:AB" & lngLast).Cells.Copy _
            Destination:=Me.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        ws.ShowAllData
    End If
    Next ws
        
    
    Me.UsedRange.Sort Key1:=Me.Range("I2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
                
End Sub

I combined what I learned in this thread so far with some code that has been working throughout the rest of the workbook quite well (checking through the tabs for names it recognizes, copying the whole worksheet and pasting into the current sheet below the existing data). However, now I want it to sort for "x" before copying and pasting into the current sheet... ideas?

ah, silly mistake.... i guess that's what happens when you're just learning as you go along!