Hello. I am using the following code and it works the first time. The problem is, after it has copied the data to Sheet1, and I run the macro again with a different filter variable it won't repalce the existing data on Sheet1. If I delete the information on Sheet1 and then run the macro, everything is fine. I am puzzled. Any help is appreciated. 


Sheets("Database").Select
Range("data").Select
Range("A1:F14").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"K1:K2"), CopyToRange:=Sheets("Sheet1").Range("a1"), Unique:=False