Makro der kører automatsik ved valg af ark

Hvis din makro laves som vist starter den hver gang arket aktiveres.

Private Sub worksheet_activate()
'Din makro
End Sub

Mange tak.
Makro kører fint, for det som ligger i ARK 2. Den går også over på ARK 1, men kan ikke markere det som skal kopieres. Jeg kan sagtens udføre handlingen manuelt, så ved ikke lige...….kan du se hvad der er galt ?

  Sheets("ARK 1").Select
    Range("B9:B100").Select    (makro stopper her)
    Selection.Copy
    Sheets("ARK 2").Select
    Range("C34").Select
    ActiveSheet.Paste

Jeg vil forslå at lave makroen uden at flytte mellem arkene og kopiere med select.

Hvordan ser den kode ud ?  Jeg er ikke så erfaren, så jeg optager det meste kode......

Prøv med noget ala

Sheets("ARK 1").Range("B9:B100").copy Sheets("ARK 2").Range("C34")

Sheets("ARK 1").Range("B9:B100").Copy _
Destination:=Sheets("ARK 2").Range("C34")

Fantastisk :-) Nu kører det.
Tusind tak for hjælpen.