Передача данных с помощью кнопки

Question

Я создаю лист Excel, чтобы составить список претензий с различными спецификациями.
У меня есть лист, который содержит выпадающие значения для разных проблем, но теперь я хочу составить полный список, где будут введены все спецификации.
Как это сделать? Я хочу получить информацию с полей B4 - B6 - B8 - B10 - B12 - B14 - B16 - B18 в Листе 1 и вставить их в следующую доступную строку в Листе 3.
Как это можно сделать с помощью простой кнопки? Предпочтительно или возможно с сообщением о том, что форма была обновлена.

Answer 1

Это то, что я сделал, и он работает :)

Private Sub CommandButton1_Click() 

Sheets("Liste").Activate 
ActiveSheet.Range("A2").Select 
ActiveCell.Offset(a2).Resize(1).EntireRow.Insert 
Sheets("Liste").Range("A3").Value = Range("B4").Value 
Sheets("Liste").Range("B3").Value = Range("B6").Value 
Sheets("Liste").Range("C3").Value = Range("B8").Value 
Sheets("Liste").Range("D3").Value = Range("B12").Value 
Sheets("Liste").Range("E3").Value = Range("B14").Value 
Sheets("Liste").Range("F3").Value = Range("B16").Value 
Sheets("Liste").Range("G3").Value = Range("B18").Value 
Sheets("Liste").Range("H3").Value = Range("B10").Value 

Range("D4").Value = Range("B4").Value 


Sheets("Forside").Activate 

End Sub