the code below only seems to run when I am on the 'Site' tab and no other tab. Can somebody explain why?

```
Sub GroupReport()

Dim vRegion As String

vRegion = Sheets("Region").Range("A3").Value

Sheets("Site").Cells.AutoFilter

Sheets("Site").Range("A1").AutoFilter Field:=1, Criteria1:=vRegion

Sheets("Site").Range("B2", Range("b2").End(xlDown)).Copy Destination:=Sheets("Region").Range("A8")

End Sub

```