Доброго времени суток, прошу помощи с фильтрацией данных в обновляемой и дополняемой таблице. Суть проблеммы такова: файл эксель сохроняет данные взвешивания с весов , рабочий по ошибке может нажать кнопку взвешивания несколько раз и ф таблице появляються лишние строки с данными, которые и необходимо убрать. В прикреплённом файле набросал проблемму.

Вопрос снимаеться задача решена. Если кому интересно, вот рабочий код
Sub OK()

Application.ScreenUpdating = 0
Worksheets("Setup").Visible = xlSheetVisible
Worksheets("Setup").Range("A2:A6").Copy
Dim NextRow As Long

With Worksheets("Data")
  Worksheets("Data").Visible = xlSheetVisible
       Sheets("Data").Select
       NextRow = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row + 1
       Sheets("Data").Range("A" & NextRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=True
   Sheets("Content").Select
       Application.CutCopyMode = False
   Application.ScreenUpdating = 1
   
   End With
End Sub

задача решена частично, всё работает при видемых листах, но задача была в том , чтобы работало и на скрытых листах. Может кто-то может помочь.

Спасибо и на этом, вопрос остался открытым.

не работает должным образом. добовляет столбцы вместо строк и непонятен порядок добавления. Должно быть так как сейчас на листе дата первая строка, следующая строка с данными под ней.

Запилил побыстрому припер, думаю бедет понятно

извиняюсь не понятно объяснил задачу, хотел прикрепить файл, но более 100кб не отсылает. Попробую объяснить ещё раз.
имеються несколько рабочих листов на которых происходят вычисления, есть лист Setup в который поподает готовый результат в диапозон A2:A6, этот готовый результат необходимо сохранить на другой лист под названием Data с добавлением новой строки. Как я понимаю, нужно проверить последную занятую ячейку в столбце "A "  и ниже добавить строку с результатом.  

Ваш код не добовляет строку, а встовляет в столбец и меняет уже вписанные значения.

Спасибо, всё работает, но встовляет в столбец а не в строку. Снёс разбросанные ячейки вместе
'copy
Dim rg As Range, C As Range
Set rg = Worksheets("Setup").Range("A2:A6")
For Each C In rg
 Worksheets("Data").Range(C.Address).Offset(1) = C
Next

Доброго времени суток форумчане.
Помогите решить задачу с переносом данных  и созданием на скрытом листе Дату которая по применению макроса должна дополняться. Из нескольких разных разбросаных  по листу ячеек допустим (6-7) лкрытого листа под названием "Setup" по применению макроса скопировать на так же на скрытый лист  "Data" с добавлением строки  вниз и вернуться на первый рабочий лист "Content".  

в этом файле не работает texbox и как связать его незнаю

Erorr If Len(s) = "" Then

в том то всё и дело , что не знаю как применить  данную  информацию

ВОТ сделал примерно ,что нужно , кнопка  ОК  не задействованна  

сам файл на работе , но если действительно есть необходимость в примере сейчас создам новый файл

не проблема поменять listbox  на texbox ,сделано только для названия листа.

как склеить listbox с vba?

поясню ,есть форма в которой есть listbox и две кнопки ok cancel при нажатии на ok создаёт новый лист с названием прописанном в listbox если ничего не написано или противоречит правилам названия листов то выкидывает ошибку, cancel выходит с формы.

как средствами VBA через форму (чтобы было красиво) дать имя новому листу в книге