Extracting Data to a different sheet

Try:

Sub CopyRows()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Sheets("Sheet1").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Sheets("Sheet1").Range("A1:U" & LastRow).AutoFilter Field:=3, Criteria1:="=*INV*"
    Sheets("Sheet1").Range("A2:U" & LastRow).SpecialCells(xlCellTypeVisible).EntireRow.Copy
    Worksheets.Add after:=Sheets(Sheets.Count)
    Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial
    If Sheets("Sheet1").AutoFilterMode = True Then Sheets("Sheet1").AutoFilterMode = False
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Another to try:

Sub usama(): Dim r As Long, s As Long, ws As Worksheet, wx As Worksheet
        s = 2:  For Each wx In Worksheets
If wx.Name = "Extract" Then GoTo SetExtract
                Next: Worksheets.add.Name = "Extract"
SetExtract: Set wx = Sheets("Extract"): Set ws = Sheets("Sheet1")
        wx.Cells.ClearContents: ws.Rows(1).Copy wx.Cells(1, 1)
        For r = 2 To ws.Range("A" & Rows.count).End(xlUp).Row
                If Left(ws.Cells(r, 3), 3) = "INV" Then _
                ws.Rows(r).Copy wx.Cells(s, 1): s = s + 1
        Next r: wx.Columns.AutoFit
End Sub

Hi usama,

Thanks for the rep!

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.