Opgelost F9 wordt soms twee keer uitgevoerd

[GrandCase]

Ik heb de volgende macro geschreven om een getal uit een lijst te kiezen en dit getal weg te schrijven in G8 en volgende:
Sub vernieuwen()
'
' vernieuwen Macro
'

'
AC = ActiveCell.Address
Range("M7").Select
With Selection.Font
.Color = -12494489
.TintAndShade = 0
End With
Calculate
Range("M7").Select
Selection.Copy
Range(AC).Activate
ActiveCell.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(1, 0).Range("A1").Select
Application.CutCopyMode = False
End Sub

Het zou mooi zijn als ik kan afdwingen dat M7 alleen unieke cijfers toont, maar dat is minder belangrijk.
Wat me niet lukt is om met een druk op de knop één keer Calculate uit te voeren.
Als ik F9 druk gaat het perfect, maar de macro aan de button toegewezen lukt het vernieuwen en wegschrijven perfect. Maar .... soms (niet altijd) wordt de waarde meteen weer ververst.
Bijvoorbeeld: 73.1 wordt gekozen en netjes weggeschreven. Maar meteen daarna verandert in M7 de waarde naar 12.3

Zie bijgevoegd bestand.

Er is vast iemand die ziet wat ik fout doe

 

[HSV]

Meer dan dit heb je niet nodig.

Sub vernieuwen()
 Cells(Rows.Count, "M").End(xlUp).Offset(1) = Range("m7")
End Sub

 

[GrandCase]

Dankjewel!

 

[jverkerk]

Tevreden, bovenaan staat de knop
"Opgelost"

 

[emields]

Je kan het natuurlijk ook zo doen, dan ben je altijd zeker van unieke nummers.
Ps was het de bedoeling dat niet alle nummers tot 6 gaan?

 

[GrandCase]

Dat is helemaal prachtig!
Unieke nummers, dat was de stap die ik nog graag wilde maken.
Ik was al tevreden met de eerdere oplossing. Nu doet het alles wat ik wil
Overigens ontbraken in mijn voorbeeld een paar opties. Van de cijfers 1 t/m 64 heb ik steeds de versies .1 t/m .6
384 in totaal dus

 

[emields]

Om het nog wat gemakkelijker te maken heb ik in de verborgen kolommen een knop geplaatst die zelf de nummers samenstelt
. Je moet maar eens proberen.
ps. bij die 384 vergeet je er 9 af te trekken want het begint maar op rij 9

 

[GrandCase]

Mooie oplossing
Maar ik heb de vorige een beetje het gewenste uiterlijk gegeven en die werkt perfect.
Iedere keer dat het bestand wordt geopend laat ik de sortering uitvoeren, zodat er altijd een verse getallen klaarstaat.
Helemaal blij mee