PC-HELP.CZ

Zdravím, přiznávám že tomu moc nerozumím, ale mám udělat makro kde: mám otevřít daný sešit.xls z něj vykopírovat obsah od A2 dolů a ten nakopírovat do jiného sešitu na první volný řádek. Vím, že tohle téma tu bylo už mnohokrát probíráno, ale opravdu mi to tolik nejde takže i když jsem použil zde ukázaná makra tak se mi to nedařilo doladit.
Sub pOpO()
'
' pOpO Makro
' Makro zaznamenané 3.4.2013, KOCHREN
'
Workbooks.Open Filename:="q:/Vypalit/vydejka.Xls"

Windows("vydejka.xls").Activate
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Windows("1.xls").Activate
Range("A2").Select
ActiveSheet.Paste
Windows("vydejka.xls").Activate
ActiveWorkbook.Close
Windows("1.xls").Activate
Range("A2").Select
End Sub

Vítej

Místo Windows("1.xls").Activate dej pouze Windows("1").Activate

A ještě před to zavření sešitu můžeš dát Application.DisplayAlerts = False
a nebude Ti vyskakovat varování, že máš ve schránce příliš dat pokud kopíruješ něco většího.

Windows("1..").Activate
Range("A2").Select
Selection.End(xlDown).Offset(1, 0).Select //Nalezení první prazdnou řádku
ActiveSheet.Paste
Windows("vy...").Activate
Application.CutCopyMode = False //Pro zrušení tečkovanou čáru po kopírování a čištění Clipboard, na konci programu použijte
ActiveWorkbook.Close

moc děkuji pomohlo to jen nevím proč musí být první 2 řádky obsazené :(