Advanced Filter VBA code

You need to insert a column B on the second sheet with a heading of 'Letter', then use

    Worksheets("Sheet2").Activate
    
    Worksheets("Sheet1").Range("A1:D15").AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=Worksheets("Sheet1").Range("G1:G2"), _
        CopyToRange:=Range("A1:D1"), _
        Unique:=False