Hallo Matt,

aktuell machst du das Einfügen der Werte direkt bei WindowActivate. Ist das so gewollt? Korrekt muss die Zeile lauten 

ActiveCell.PasteSpecial Paste:=xlPasteValues
ActiveCell.PasteSpecial Paste:=xlPasteComments

Statt ActiveCell (nur in einer Zelle einfügen) kannst du auch Selection (in markiertem Bereich einfügen) verwenden.

Wo du das genau ausführst bleibt dir überlassen. Ich sehe 3 Möglichkeiten

1 und 2: Ein eigenständiges Makro: Einfach in einem Modul den Code wie folgt schreiben:

Sub WerteUndKommentareEinfuegen()
  If Application.CutCopyMode = False Then Exit Sub
  Selection.PasteSpecial Paste:=xlPasteValues
  Selection.PasteSpecial Paste:=xlPasteComments
End Sub

Das Makro kannst du 1. über ein eigenes Symbol in der Symbolleiste ausführen. Dazu einfach Rechtsklick auf Symbolleiste -> Menüband anpassen -> Zwischenablage markieren -> Klick auf Button "Neue Gruppe". Dann Button Umbenennen und gib dieser einen sinnvollen Namen. Wenn dein Makro bereits existiert, kannst du in der linken Spalte oben im Dropdownfeld die Kategorie Makros und darunter dann dein Makro wählen und auf Hinzufügen gehen. Über den Button Umbenennen wählst du noch ein schickes Symbol aus, und fertig.

Alternativ kannst du 2. das Makro über Shortcut starten. Dazu einfach Alt+F8 -> Button "Optionen" und neben Strg+ ein kleiner Buchstabe deiner Wahl - z.B. v

Mit v überschreibst du das Standard-Einfügen. Stattdessen wird dein Makro ausgeführt.

Als dritte Möglichkeit kannst du auch alles ganz normal einfügen (also so wie gewohnt ohne Makros) und über das Worksheet_Change-Event die Formate rausschmeißen.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Target.ClearFormats
End Sub

Für welchen Weg du dich letztlich entscheidest, bleibt dir überlassen.

Gruß Mr. K.