Добавить данные в конце таблицы

[lakmuss]

Здравствуйте, необходимо добавить транспонированную строку с одного листа в конец таблицы другого листа. С помощью функции записи макроса записал следующий макрос:

'

Sub Добавить_данные_в_базу()


'
    Sheets("Рабочий").Select
   ...
    Range("E1:E1925").Select
    Selection.Copy
    Sheets("2").Select
    Range("B5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Sheets("Управление").Select
End Sub

Надо теперь вставить где-то код что-бы строка добавлялась вконце таблицы. Подскажите пожалуйста где, что надо вставить, так-как сам я в этом совсем не разбираюсь. Спасибо.

[Казанский]

Попробуйте

Sub Добавить_данные_в_базу()

    Sheets("Рабочий").Range("E1:E1925").Copy
    Sheets("2").Cells(Rows.Count, "B").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
End Sub

[lakmuss]

Спасибо, всё получилось