Диапазон методов кода убийства Obeject_Worksheet - что не так?

Question

Я пытаюсь написать какой-нибудь VBA, который:

1. Выполняет поиск столбца на одном листе («2013-2018 комбинированный»), чтобы найти максимальное значение
2. Вставляет это значение + 1 в нижний ряд на другом листе

Я получаю ошибки при попытке определить U ниже. Был бы признателен за помощь, поскольку я пытался отладить его безрезультатно.

Ошибка: 1004 - метод 'Range of Object'_Worksheet не выполнен

Dim wscombined As Worksheet
Dim wspsimp As Worksheet
Dim u As Integer

Set wscombined = ThisWorkbook.Worksheets("2013-2018 Combined")
Set wspsimp = ThisWorkbook.Worksheets("Pipeline simplified")
u = Application.WorksheetFunction.Max(wscombined.Range("A7:A"))


LastRowU = wspsimp.Range("J" & Rows.Count).End(xlUp).Row

LastRowU.Offset(0, -8).Select

 '  Increment cell value by 1
   ActiveCell.Value = u + 1