vba autofilter

I  need to autofilter based on a cell value in A1 of Sheet2. Which is called Teams Results i am guessing it goes where the "*" is but i cant get anything to work.

I have so far got this:

 

Sub MoveData()
Sheet2.[C7:AC209].ClearContents
Sheet26.[C7:AC209].AutoFilter 1, "*"
Sheet26.[C7:AC209].Copy Sheet2.[c7]
Sheet26.[c7].AutoFilter
End Sub