Excelin leikepöytä puhtaaksi

http://www.microsofttraining.net/post-317-how-clear-excel-clipboard.html

Kiitos ratkaisusta. Kokeilin laittaa tietoja soluihin E7-H7. Makro kopioi ne.
Laitoin vielä A9 ja A10 jotain tekstiä, että "xlDown pelaa".
Leikepöytä ei täyty nyt!

Sub Makro1()
' Makro1 Makro
Range("A9").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Offset(0, 0).Range("A1:D1").Value = _
Sheets("Taul1").Range("E7:H7").Value
End Sub

turhahan niiä sinne leikepäydälle on siirrellä ja kopioida takasin kun sen voi noin tehdä suoraan ilman leikepäytää, niinkuin koodisi nyt tekee,.


alla hiukan siitittynä toi sama makro . Siinä poistettu vaan turhia toimintoja ja oletusarvoja.

Sub Makro1()
' Makro1 Makro
Range("A65536").End(xlUp).Offset(1, 0).Resize(, 4) = Sheets("Taul1").Range("E7:H7").Value
End Sub


Keep EXCELing
@Kunde