Archive/Transfer data from multiple sheets into one sheet with criteria

May I ask if I have 2 sheets that of "Disposed" items that required to be moved, what would the VBA like?
Please find the attached Excel. I want the rows in Sheet 3 and Sheet 1 with "Disposed", being transferred to Sheet 2, and having the disposed items removed from Sheet 3 and 1.

I expected the red labelled "Disposed" rows in sheet 3 and 1 to be moved to sheet 2, followed by deleting the disposed items in sheet 3 and 1.

Thanks!

Ken

Hello Ken,

Not a lot different from your last thread, only this time we reference all the source sheets:

Option Explicit
Sub TestKen()

        Dim ws As Worksheet

Application.ScreenUpdating = False

        For Each ws In Worksheets
                If ws.Name <> "Sheet2" Then
                        With ws.[A1].CurrentRegion
                                .AutoFilter 3, "Disposed"
                                .Offset(1).EntireRow.Copy Sheet2.Range("A" & Rows.Count).End(3)(2)
                                .Offset(1).EntireRow.Delete
                                .AutoFilter
                        End With
                End If
        Next ws

Application.ScreenUpdating = True

End Sub

I hope that this helps.

Cheerio,
vcoolio.

Thanks again. If you don't mind, can you explain briefly what do the following items mean?

Option Explicit
Sub TestKen()

Dim ws As Worksheet

Application.ScreenUpdating = False

For Each ws In Worksheets
If ws.Name <> "Sheet2" Then
With ws.[A1].CurrentRegion
.AutoFilter 3, "Disposed"
.Offset(1).EntireRow.Copy Sheet2.Range("A" & Rows.Count).End(3)(2)
.Offset(1).EntireRow.Delete
.AutoFilter
End With
End If
Next ws

Application.ScreenUpdating = True

End Sub

Thank you so much for your time for explaining this! It all makes sense!

You're welcome Ken. I'm glad to have been able to assist.

Cheerio,
vcoolio.