Определение следующей пустой строки и вставка данных в другой лист

[timesoon]

Здравствуйте, имеется код который выполняется при клике на кнопку

'   Определение следующей пустой строки
    NextRow = _
      WorksheetFunction.CountA(Range("D:D")) + 1
'   Передача имени
    Cells(NextRow, 4) = Sheets("Билет").Range("C12")
    
'   Передача даты
    TheDate = Format(Date, "Long Date")
    Cells(NextRow, 6) = TheDate
    
'   Передача времени
    TheTime = Format(Time, "[$-409]h:mm AM/PM;@")
    Cells(NextRow, 7) = TheTime

Как сделать чтобы данные: Имя, дата и время, передавались на лист "Архив"? В этом коде они вносятся в этот же лист.

[ShAM66]

Как-то так:

With Worksheets("Архив")
'   Определение следующей пустой строки
    NextRow = _
      WorksheetFunction.CountA(.Range("D:D")) + 1
'   Передача имени
    .Cells(NextRow, 4) = Sheets("Билет").Range("C12")
    
'   Передача даты
    TheDate = Format(Date, "Long Date")
    .Cells(NextRow, 6) = TheDate
    
'   Передача времени
    TheTime = Format(Time, "[$-409]h:mm AM/PM;@")
    .Cells(NextRow, 7) = TheTime
End With

[DiemonStar]

Как сделать чтобы данные: Имя, дата и время, передавались на лист "Архив"?

Элементарно. Весь вопрос лишь в том, куда это всё записывать...

например так:

ActiveSheet.Range(ActiveSheet.Cells(NextRow, 4), ActiveSheet.Cells(NextRow, 6)).Copy
_Sheets("Архив").Cells(WorksheetFunction.CountA(Worksheets("Архив").Range("D:D")) + 1, 4)

[ShAM66]

Весь вопрос лишь в том, куда это всё записывать...

Хм, я не стал заморачиваться, вставил туда же, что и в исходном коде

[timesoon]

Спасибо огромное за оперативность. Еще возник вопрос, нужно организовать графическое представление листа "архив" в виде таблицы с датами и лепестковой диаграммы среднего состояния «успехов» в группе. Лист "Архив" имеет следующие данные: Фамилия, бал, дата, время, группа. С чего начать и куда копать?