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

[аналитика]

т.е. диапазон в столбце K "дырявый"?
если да, то так вот поменяй

lr = .Range("K" & cells.rows.count).End(xlUp).Row

[lecko]

очень вам благодарен товарищ аналитика

[lecko]

Чтобы полностю закрыть тему, задам похожый вопрос:
как создать шаблон строки? Шаблон столбца вы показали мне как сделать

[аналитика]

Private Sub Workbook_NewSheet(ByVal Sh As Object)
   Dim lc As Integer
   
   With Sheets(Sheets.Count - 1)
'      lc = .Range("B10").End(xlToRight).Column ' если непрерывный диапазон
      lc = .Cells(10, Cells.Columns.Count).End(xlToLeft).Column 'дырявый
      Range(.Cells(10, 2), .Cells(10, lc)).Copy Range("B2")
   End With
End Sub

[lecko]

Тема не закрыта! Я что то сообразил, но у меня не все так хорошо. Вот код:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
   Dim lc As Integer
   
   With Sheets(Sheets.Count - 1)
      lc = .Range("A1").End(xlToRight).Column
            Range(.Cells(1, 1), .Cells(2, lc)).Copy Range("A1")
   End With
   
   With Sheets(Sheets.Count - 1)
      lc = .Range("A37").End(xlToRight).Column
            Range(.Cells(1, 1), .Cells(1, lc)).Copy Range("A37")
   End With
   With Sheets(Sheets.Count - 1)
      lc = .Range("A38").End(xlToRight).Column
            Range(.Cells(1, 1), .Cells(1, lc)).Copy Range("A38")
   End With
    With Sheets(Sheets.Count - 1)
      lr = .Range("M" & Cells.Rows.Count).End(xlUp).Row
      .Range("M3:M" & lr).Copy Range("C3")
   End With
    With Sheets(Sheets.Count - 1)
      lr = .Range("A" & Cells.Rows.Count).End(xlUp).Row
      .Range("A3:A" & lr).Copy Range("A3")
   End With
    With Sheets(Sheets.Count - 1)
      lr = .Range("B" & Cells.Rows.Count).End(xlUp).Row
      .Range("B3:B" & lr).Copy Range("B3")
   End With
End Sub

Дело в том что ваш вариант копирует формулу, а я хочу чтобы скопировалоь значение. Понимаете меня?
А вот прикрепленный файл:

[аналитика]

Посту-
пило

так что, критично?
может в одной строке сделать?

[lecko]

Можно. Кстати это супутный вопрос. Как сделать перенос слова в одной ячейке?
Чудесно.
А что ты скажеш про вставку не формулы, а значения?

[аналитика]

Alt + Enter

[аналитика]

в новом листе формулу прописывает

Private Sub Workbook_NewSheet(ByVal Sh As Object)
   Dim lc As Integer
   Dim lr As Long

   With Sheets(Sheets.Count - 1)
      lc = .Range("A1").End(xlToRight).Column   'последний столбец у тебя один на всех
      Range(.Cells(1, 1), .Cells(2, lc)).Copy Range("A1")  '2 строки 1-го заголовка
      Range(.Cells(1, 1), .Cells(2, lc)).Copy Range("A37")   '2 строки 2-го заголовка

      lr = .Range("A" & Cells.Rows.Count).End(xlUp).Row   'последняя строка тоже одна
      .Range("A3:B" & lr).Copy Range("A3")   'оба столбца берем

      .Range("M3:M" & lr).Copy
      Range("C3").PasteSpecial Paste:=xlPasteValues
      Range("C3").PasteSpecial Paste:=xlPasteFormats
   End With

   Range("M3:M" & lr).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=RC[-10]+RC[-7]+RC[-3]"
   Cells.EntireColumn.AutoFit
   Range("A1").Select
End Sub

[lecko]

ИДЕАЛЬНО! Тема закрыта.
Спасибо