Заполнить следующую строку

[greensage]

Форумчане помогите.
Есть данные на листе "Управление" в ячейке F20 их нужно вставить в ячейку J15 на листе "Отчет", при следующем вызове макроса в J16, потом J17 и т.д..
И если возможно, вставить данные в ячейку Управление!F20 без выбора листа .Select (вставка только данных).

Range("Управление!F20").Copy
    
    Sheets("Отчет").Select
    Range("J15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

[DiemonStar]

Если столбец J не содержит значений ниже тех, которые будут добавлены, можно сделать так:

With Sheets("Отчет")
  Range("Управление!F20").Copy .Range("J15:J" & .Rows.Count).End(xlUp).Offset(1)
End With

upd. добавил смещение...

[Hugo121]

Форматы не нужны.
Ну и первое значение (или шапку) нужно обеспечить.

Sheets("Отчет").Cells(Rows.Count, "J").End(xlUp)(2).Value = Range("Управление!F20")

[greensage]

Сообщение от DiemonStar

Если столбец J не содержит значений ниже тех, которые будут добавлены, можно сделать так:
upd. добавил смещение...

Копируется не значение, а формула с F20, на следующую строку не спускается.

Сообщение от Hugo121

Форматы не нужны.
Ну и первое значение (или шапку) нужно обеспечить.

Работает!
Подскажите, как можно в соседнем столбце вести нумерацию, списком 1, 2, 3...

[DiemonStar]

Сообщение от greensage

Подскажите, как можно в соседнем столбце вести нумерацию, списком 1, 2, 3...

Для списка начинающегося с 15 строки:

With Sheets("Отчет").Cells(Rows.Count, "J").End(xlUp)(2)
  .Value = Range("Управление!F20")
  .Offset(,1).Value = IIf(.Row <= 15, 1, .Offset(-1,1) + 1)
End With

[Hugo121]

Или так:

With Sheets("Отчет")
.Cells(Rows.Count, "J").End(xlUp)(2).Value = Range("Управление!F20")
.Cells(Rows.Count, "I").End(xlUp)(2).Value = .Cells(Rows.Count, "I").End(xlUp) + 1
End With

Но в шапке должен быть 0 - чтоб было к чему прибавлять.
Или код усложнить проверкой на число.