438 не поддерживает это свойство или метод vba

noobie спросил: 11 июня 2018 в 10:57 в: excel

Ниже мой код. Весь код работает, но я получаю ошибку 438 объект не поддерживает это свойство или метод vba в этой строке. i.offset (-7, -8) .paste

Sub insert_6_rows()
Dim rActive As Range
Dim wb As WorkbookSet rActive = ActiveCellApplication.ScreenUpdating = False
Dim f As Range
Set f = Sheets("Format").Range("A1:J6")
Dim FindST As Range
Set FindST = Sheets("Driver").Range("I:I").Find(What:="Subtotal", LookIn:=xlValues)
FindST.Offset(-1, 0).EntireRow.Resize(6).Insert
f.Copy
Dim i As Range
Set i = Sheets("Driver").Range("I:I").Find(What:="Subtotal", LookIn:=xlValues)
i.Offset(-7, -8).Paste
rActive.Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

0 ответов