Code working but on wrong sheet

Hi,

The code below works however it copies it to the wrong sheet (the sheet you are viewing when the macro is ran).

I think this is the part i need to amend:

CopyToRange:=Range("A1"), Unique:=True

Is there any way I can select the sheet I want to copy it to e.g.
=Range(Sheets("macro"."A1")

This is the code in full

Sub Macro1()

' Macro1 Macro

    Sheets("May Sales.xls").Columns("D:D").AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Range("A1"), Unique:=True
    Sheets("macro").Range("A2:A" & Sheets("Macro").Cells(Rows.Count, "A").End(xlUp).Row).Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Overview").Range("I4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub