м-да...А зачем With? И второй Sub?
В принципе, чтобы работать с макросами неплохо бы хоть какую-то теорию иметь. Хотя бы самых азов. Например, знать что такое Sub и где правильно его писать и зачем.
Код |
---|
Sub CommandButton1_Click()
With ActiveSheet
.Unprotect 'снятие защиты БЕЗ ПАРОЛЯ
LastRow = .Cells(Rows.Count, 3).End(xlUp).Row
With .Rows(LastRow)
.Copy
.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End With
.Rows(LastRow + 1).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Protect 'установка защиты БЕЗ ПАРОЛЯ и без каких-либо параметров
End With
Application.CutCopyMode = False
End Sub |
P.S. Не надо писать мне в личные сообщения, если не хотите в личном порядке передать мне решение Ваших проблем