copying a row of data to another worksheet based on specific variable in one column

So this is the macro:

Sub updatestat()
'
' updatestat Macro
'

'
Columns("A:O").Select
Selection.Delete Shift:=xlToLeft
Range("G11").Select
Sheets("Database").Columns("A:J").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Database").Range("K5:K6"), CopyToRange:=Range("A1") _
, Unique:=False
End Sub


I do actually want the information to update automatically when information that meets the criteria range is either entered or deleted but as yet I haven't tried to do this.

Thanks for the help