Excel, transfer data from Master Sheet to sub sheets, using key word from column

[anvqui]

Good Morning to All,

I am seeking assistance regarding transfer of data from sheet 1 (master list) to other sheets in the workbook.

Sheet 1: Master Inventory List

1. Column A through Column R, with headers.
2. Column F is focal point of sorting by category, ie; computer, laptop, printer, scanner, digital sender, unknown.

What I would like to do is pull data from the master list, using key words "Computer or any of the sorted data" from column F. Transfer that data along with column A through Column R from each ROW to a new sheet, labeled after the sorted Data from column F

Thank you,

[JieJenn]

Can you post a sample file?

[anvqui]

Thank you for your assistance, I currently deleting sensitive data, and I will provided a sample sheet for your review within the hour.

A

[anvqui]

I am a first time user, posting on a forum based site. Please forgive if I am adding the attachment wrong. I have attached an excel file, that contains the basic information of columns and rows, and data that I need transferred to the sub sheets in the workbook.

Sincerely,

[JieJenn]

I deleted your column A. But the macro would probably looks like this based on the file you provided

Sub MoveData()
Dim wsMaster As Worksheet, ws As Worksheet
Dim LR As Long

Set wsMaster = ThisWorkbook.Worksheets("Master Inventory List")

For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> wsMaster.Name Then
        With wsMaster
            .AutoFilterMode = False
            
            .Range("A1").AutoFilter 4, ws.Name
            
            LR = .Cells(Rows.Count, 4).End(xlUp).Row
            
            '//Copy over if have record
            If LR > 1 Then
                ws.Cells.Delete
                .Range(.Cells(1, 1), .Cells(LR, "Q")).Copy ws.Range("A1")
            End If
            
            .AutoFilterMode = False
        End With
    End If
Next ws

End Sub