Makro - kopier ark og indsæt kopi

Jeg har lavet følgende makro til at kopier et ark og indsætte kopien efter sidste ark i filen.

    Sheets("Summary").Select
    Sheets("Suitability analysis").Visible = True
    Sheets("Suitability analysis").Select
    Sheets("Suitability analysis").Copy  After:=Workbooks("Test").Sheets(Workbooks("Test").Sheets.Count)
    Sheets("Suitability analysis").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summary").Select

Dog synes jeg det er irriterende at min skærm blinker når jeg aktiver makroen (tænker det er fordi jeg kort ser mit ark blive synlig og så usynligt igen).

Er der ikke en anden måde at kopiere et "hidden" ark på?

Og så vil jeg gerne have at jeg ser det kopiere ark efter kopieringen og ikke de ark hvor min "Kopier" makro er.

Er der nogen som kan hjælpe?