Hi, i have this code:
Sub Copy_A_B()
Dim rngDatabase As Range
Set rngDatabase = Sheets("Sheet1").Range("a1")
rngDatabase.CurrentRegion.AutoFilter Field:=1, _
Criteria1:="A"
rngDatabase.CurrentRegion.Copy
Sheets("CompanyA").Paste Sheets("CompanyA").Range("a1")
rngDatabase.CurrentRegion.AutoFilter Field:=1, _
Criteria1:="B"
rngDatabase.CurrentRegion.Copy
Sheets("CompanyB").Paste Sheets("CompanyB").Range("a1")
Application.CutCopyMode = False
rngDatabase.AutoFilter
End Sub

I need this code to be a little bit modified. Every day i will change the
content of sheet 1, so i need the code to keep adding the content in CompanyA
sheet and CompanyB sheet. At the end of the month i need to have in CompanyA
and CompanyB sheets, the entry from all the days of the month.

Can this be done?
Thanks!