Option Explicit
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
With ActiveSheet
.[a:g].Clear
.[a1] = "Issue"
.[a2] = "yes"
Sheets("Data").Columns("a:g").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("a1:a2"), CopyToRange:=.Range("c1"), Unique:=False
.[a:b].Delete
End With
Application.ScreenUpdating = True
End Sub