Option Explicit
Const SoSV As Integer = 666: Const SiSo As Integer = 105
[b]Sub AFilterToSheet()[/b]
' Keyboard Shortcut: Ctrl Shift + A
Sheets("Marks of Test").Select
1 [COLOR="Blue"]'* AdvancedFilter[/COLOR]
Range("A3:I" & SoSV).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"L1:T2"), CopyToRange:=Range("L6:T6"), Unique:=False
2[COLOR="blue"] '* Copy to Sheet("Report")[/COLOR]
Range("L6:T" & SiSo).Select: Selection.Copy
Sheets("Report").Select: Range("A1").Select
ActiveSheet.Paste: Application.CutCopyMode = False
[B]End Sub[/B]