** Ed*********

IGNORERA, såg att du redan fått svar i VBA-avdelningen

/*******

 ta fram fliken utvecklare om du inte ser den:

https://support.microsoft.com/sv-se/t...

Infoga en knapp (exemplet nedan gäller activeX-knapp)

Ändra knapptexten till något vettigt, T.ex "Tjo"   (högerklicka och välj  kommandoknapp, redigera)

Högerklicka igen och välj "visa kod"

då ser du en "kodmallmall" utan intehåll. ungefär så här:

Private Sub CommandButton1_Click()

End Sub

Fyll med det du vill göra. I exempelt tilldelar du cellerna "C1,C7,D8" värdet i A2 och
"E2,E3,E14,K5" tilldelas värdet i "A3"

Private Sub CommandButton1_Click()

    Range("C1,C7,D8").Value = Range("A2").Value

    Range("E2,E3,E14,K5").Value = Range("A3").Value

End Sub

Stäng kodredigeraren och stäng av utvecklare -> designläge om det behövs.

Nu bör det hända saker om du trycker på kanppen. Om det inte händer något så har du förmodligen ställt in Makrosäkerheten för högt (standard är att du inte får köra makron alls).

https://support.microsoft.com/sv-se/o...

Jag tycker att nivån "Inaktivera med avisering" är en bra kompromiss. Då spärras alla makron men du får möjligheten att aktivera när du öppnar en arbetsbok med makron (t.ex din egen bok). 

 skapa en knapp på samma sätt och kör en kod som sätter värdet till ingenting "". Dvs något i stil med:

Private Sub CommandButton2_Click()

    Range("C1,C7,D8").Value = ""

    Range("E2,E3,E14,K5").Value = ""

End Sub

eller kör en "Clear" på hela Området (ranget).Typ:

Range("C1,C7,D8,E2,E3,E14,K5").Clear