Шаблон при создании нового листа

[lecko]

Здраствуйте. Догадываюсь, что даная тема уже поднималась, но все же спрошу у проффесионалов.
Помогите пожалуйста создать шаблон (скорее всего методами макросов) в котором при создании нового листа брались бы даные с нужной ячейки предыдущего листа. Количество строк при етом неограничено. Для примера вкладываю пркрепленный файл

[аналитика]

в модуль "ЭтаКнига":

Private Sub Workbook_NewSheet(ByVal Sh As Object)
   Dim lr As Long
   
   With Sheets(Sheets.Count - 1)
      lr = .Range("K2").End(xlDown).Row
      .Range("K2:K" & lr).Copy Range("B2")
   End With
End Sub

[lecko]

Куда именно вписывать етот код? У меня Ексель 07

[аналитика]

Alt+F11
Ctrl+R (для верности)
модуль "ЭтаКнига" как и написано в моем сообщении выше

[lecko]

Спасибо. Скажите еще какой столбец в етой ситуации будет переноситься?
ЗЫ: Я догадываюсь что это столбец К

[аналитика]

правильно догадываешься
ты чё-ж не экспериментировал?

.Range("K2:K" & lr).Copy Range("B2")

столбец "K" в столбец "B"

[lecko]

Большое спасибо. 1 момент: Что делать, если 1 ячейка в столбце К пустая?
Дальше процес прикращаеться, а я бы хотел его продолжения
PS аналитика, вы умная женщина

[EducatedFool]

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

PS аналитика, вы умная женщина

Вообще-то, он мужчина.
По крайней мере, был до этого момента)))

[аналитика]

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

...
PS аналитика, вы умная женщина

давай на ты и лучше в мужском роде
аналитика - это родительный падеж

отталкиваемся от ячейки K2, K1 там не нужна (из твоего файла это последовало), главное, чтобы в столбце K хотя бы еще K3 была не пустой, а то он "маханет" до конца листа

[lecko]

Вообще-то, он мужчина.

лучше в мужском роде

Извините
Я имею в виду не ячейку К1, а ячейку , напимер К10, исле в ней не введено никакое значение