How to create Table from Table?

[Whistler]

Hi, I have a Table with few columns, some of them are Date, Name, Shift, Line, and GMP. I would like to create another table from this table.

I mean if I enter "Martin Cotton" in to "C4" cell it will create table with only his entrys.

I dont want to have a pivot Table due to shared workbook.

How I could do that. Any help much apreciated

 

[Whistler]

Hi All,

So far I have manage to build something like that:

Sub Go_Click()
Dim ws As Worksheet
Dim ws2 As Worksheet
Set ws = Worksheets("DataBase")
Set ws2 = Worksheets("Review")
Dim What As String
Dim Where As Range
Set Where = ws.Range("B:B")
Dim Found As Range
What = ws2.Range("C4")
Set Found = Where.Find(What:=What, After:=Range("B2"), LookAt:=xlPart, MatchCase:=False)
If Found Is Nothing Then
        ws2.Range("C7").Value = "Not found"
    Else
        Found.Copy
        
        ws2.Range("D10").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End If

How to select the row or the cell found and 10 more cells to the right?

Thanks for your help