
Dobrý den, možné řešení je například:
Sheets("hlavná").Select
Range("B1:B9").Copy
Sheets("zdrojova_tabulka").Select
Range("C65536").Select
Selection.End(xlUp).Select
If ActiveCell.Value <> "" Then
ActiveCell.Offset(1, 0).Activate
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Selection.End(xlToLeft).Select
Marek_Banas(13.2.2015 14:59)citovat#023628 
Ďakujem, funguje perfektne.

Dobrý den,
jde to i jednodušeji
Sub Makro1()
Dim lastrow As Long
lastrow = Sheets("zdrojova_tabulka").Range("c65536").End(xlUp).Row + 1
Sheets("hlavná").Range("B1:B9").Copy
Sheets("zdrojova_tabulka").Range("d" & lastrow).PasteSpecial Paste:=xlPasteValues
Selection.End(xlToLeft).Select 'to netuším proč tam je
End Sub

Dobrý den, dovolil jsem si opravit makro kolegy Dream2003, jenže makro má stejně tu nevýhodu, že se data vkládají až od druhého řádku. Proto jsem tam měl ten if.
Sub Makro1()
Dim lastrow As Long
lastrow = Sheets("zdrojova_tabulka").Range("c65536").End(xlUp).Row + 1
Sheets("hlavná").Range("B1:B9").Copy
Sheets("zdrojova_tabulka").Range("c" & lastrow).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Selection.End(xlToLeft).Select 'to netuším proč tam je
End Sub