Copy Clear and Paste

According to your attachment an Excel basics VBA demonstration as a beginner starter :

PHP Code: 

Sub Demo1()
    With Sheet1.ListObjects(2)
        .HeaderRowRange = .Parent.ListObjects(1).HeaderRowRange.Value
         If .ListRows.Count Then .DataBodyRange.Delete
        .ListRows.Add
        .Parent.[CRI2].Formula = "=C2=""Blake"""
        .Parent.ListObjects(1).Range.AdvancedFilter 2, .Parent.[CRI1:CRI2], .HeaderRowRange
        .Parent.[CRI2].Clear
        .Resize .Range.CurrentRegion
        .Range.Columns(3).AutoFit
    End With
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄