MS Excel VBA, как вставить строку в текущий лист и еще три

Я использую MS Excel 2007 и Microsoft Visula Basic 6.5.

Я хочу выбрать строку на листе, а затем использовать макрос, чтобы вставить строку в этот лист и еще три. Я пытаюсь код ниже, однако, когда я запускаю его, я получаю сообщение об ошибке "Ошибка выполнения '1004': Ошибка приложения или объекта » наWorksheets (»Относительный Планирование встречи ") .Range (LST) .Activate».

Sub Copy1()
Dim Lst As Long
'save the rowNo
Lst = ActiveCell.Row

Worksheets("Rel. Planning Meeting").Activate
Worksheets("Rel. Planning Meeting").Range(Lst).Activate
ActiveCell.EntireRow.Insert

Worksheets("Master Release Plan - HTSTG").Activate
Worksheets("Master Release Plan - HTSTG").Range(Lst).Activate
ActiveCell.EntireRow.Insert

Worksheets("Inst. Gateway").Activate
Worksheets("Inst. Gateway").Range(Lst).Activate
ActiveCell.EntireRow.Insert


Worksheets("CAB").Activate
Worksheets("CAB").Range(Lst).Activate
ActiveCell.EntireRow.Insert

Worksheets("Rel. Planning Meeting").Range("A3:G5000").Copy _
Destination:=Worksheets("Master Release Plan - HTSTG").Range("A3")

Worksheets("Master Release Plan - HTSTG").Range("A3:O5000").Copy _
Destination:=Worksheets("Inst. Gateway").Range("A3")

Worksheets("Inst. Gateway").Range("A3:T5000").Copy _
Destination:=Worksheets("CAB").Range("A3")

End Sub

Я пытался "Dim Lst As Range " однако тогда я получаю ошибкуОшибка выполнения '91': Переменная объекта или переменная блока не установлена " наLst = ActiveCell.Row ".

Ваша помощь очень ценится.

С Уважением,

Глин

Новый код:

Sub InsertRow()

Dim Lst As Long
'save the rowNo
Lst = ActiveCell.Row

'Insert a row in each worksheet at the currently selected cell.
Worksheets("Rel. Planning Meeting").Rows(Lst).Insert
Worksheets("Master Release Plan - HTSTG").Unprotect
Worksheets("Master Release Plan - HTSTG").Rows(Lst).Insert
Worksheets("Inst. Gateway").Unprotect
Worksheets("Inst. Gateway").Rows(Lst).Insert
Worksheets("CAB").Unprotect
Worksheets("CAB").Rows(Lst).Insert
End Sub

Ответы на вопрос(2)

Ваш ответ на вопрос