Kod:
Sub Makro1()
Sheets("Ara").Range("B5:F" & Rows.Count).Clear
Sheets("Veri").Columns("A:E").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Ara").Range("B1:F2"), CopyToRange:=Sheets("Ara").Range("B5:F5"), Unique:=False
Sheets("Ara").Range("F3").Select
End Sub