You did correctly that you ave RECORDED the macro. but RECORDED macro needs some editing. even by mistake id you went up and down this action also will be RECORDED. you have to remove them. I verbatim copied your RECORDED macro and have given some comments in caps and put a single apostrophe at the beginning of the codes which are not required. I also have given finally how the macro will look without comments. I suggest when you edit recorded macro introduce some message boxes so that when you debug(keeping cursor within the macro and successively hitting F8) you will check whether you are getting what you want.
macro with comments
Sub PokerStars()
'
' PokerStars Macro
'
'
Sheets("Summary").Select
'Range("A7:G13").Select
'Application.Goto Reference:="R8C1:R1000C16"
'ActiveWindow.SmallScroll Down:=-34
'WHAT IS YOUR MAIN DATA RANGE
'IF THERE ARE NO BLANK ROWS OR COLUMNS TRY THIS
'YOU MAIN DATA SHOULD HAVE COLUMN HEADING FOR AUTOFILERING
'SUPPOSE MAIN DATES STARTS FROM A1.
Dim r As Range 'always put dim statements at the beginning below sub......
Set r = Range("a1").CurrentRegion
'Selection .AutoFilter
'ActiveSheet.Range("$A$8:$P$120").AutoFilter Field:=4, Criteria1:="<>"
'ActiveWindow.SmallScroll Down:=9
'ActiveSheet.Range("$A$8:$P$120").AutoFilter Field:=4
'ActiveSheet.Range("$A$8:$P$120").AutoFilter Field:=4, Criteria1:= _
'"=Poker Stars", Operator:=xlOr, Criteria2:="="
'ActiveSheet.Range("$A$8:$P$120").AutoFilter Field:=4, Criteria1:= _
'"Poker Stars"
'ActiveSheet.Range("$A$8:$P$120").AutoFilter Field:=4, Criteria1:= _
'"=Poker Stars", Operator:=xlOr, Criteria2:="="
'ActiveSheet.Range("$A$8:$P$120").AutoFilter Field:=4, Criteria1:= _
'"Poker Stars"
'ActiveWindow.SmallScroll Down:=-17
r.AutoFilter field:=4, Criteria1:="Poker Stars"
'Range("A8:L661").Select
'Selection.Copy
'INSTED OF THE ABOVE I SHALL GIVE YOU A CODE
r.SpecialCells(xlCellTypeVisible).Copy
'the above copies the filtered data
Sheets("Poker stars").Select
'ActiveWindow.SmallScroll ToRight:=-4
Range("A8").Select
ActiveSheet.Paste
Sheets("Summary").Select
ActiveSheet.AutoFilterMode = False
'THIS REMOVES THE AUTOFILTER AND DATA SAME AS ORIGINAL
End Sub
final macro without comments
I AM ASSUMING THAT THE MAIN DATA IS FROM A1 WITHOUT BLANK ROWS OR COL
you can modify the statement set r=.................
Sub PokerStars()
Dim r As Range 'always put dim statements at the beginning below sub......
Sheets("Summary").Select
Set r = Range("a1").CurrentRegion
r.AutoFilter field:=4, Criteria1:="Poker Stars"
r.SpecialCells(xlCellTypeVisible).Copy
Sheets("Poker stars").Select
Range("A8").Select
ActiveSheet.Paste
Sheets("Summary").Select
ActiveSheet.AutoFilterMode = False
end sub
if there is any doubt or bug or problem post back.
still more sophistication is possible to reduce the speed of running the macro and that will be after you are more familiar with writing macros.
when you understand the concept then we can think of other criteria other than "poker stars"
good hunting. It is an adventure to learn new things.