Помогите пожалуйста составить Таблицу

[Gennadij2]

Помогите пожалуйста составить Таблицу для облегчения вода даных, дапустим на первом листе записать даные, и при нажатие ОК даные записываются на втором листе с каждым разом на новую срку.
зарание благадарю

[EducatedFool]

Вот весь макрос:

Sub Копирование()
    With Me.Worksheets("Tabelle2").[b65000].End(xlUp).Offset(1).EntireRow
        .Cells(2) = [b4]: .Cells(4) = [c4]: .Cells(7) = [d4]
        .Cells(10) = [e4]: .Cells(13) = [f4]
    End With
End Sub

Кнопка ввода сделана не лучшим образом - по ней не видно, было ли произведено нажатие на неё.
Лучше придумать другой способ ввода, или делать кнопку после нажатия недоступной до тех пор, пока не изменятся значения в ячейках для ввода данных.

[Gennadij2]

Спасиба

Кнопка ввода сделана не лучшим образом - по ней не видно, было ли произведено нажатие на неё.
Лучше придумать другой способ ввода, или делать кнопку после нажатия недоступной до тех пор, пока не изменятся значения в ячейках для ввода данных.[/QUOTE]

да я только учусь