Мои ссылки на ячейки VBA работали, но теперь я получаю сообщение об ошибке: «Переменная объекта или переменная блока не установлена»

Question

У меня есть два столбца со значениями (пустыми или символами), и мне нужно объединить информацию из этих двух столбцов в столбец, в котором я работаю. Если в одном из этих столбцов есть только информация, я хочу эту информацию,но если в обоих есть информация, мне нужно, чтобы она отображалась как «X / Y»

Примеры для данной строки:

Случай 1: TaxableBox содержит «14», а VATBox содержит «1»;return "14/1"

Случай 2: TaxableBox содержит "", а VATBox содержит "1";return "1"

Случай 3: TaxableBox содержит "14", а VATBox содержит "";return "14"

Случай 4: TaxableBox содержит "" и VATBox содержит "";return ""

Код ниже работал раньше, но теперь он не работает.Я подозреваю, что это может иметь какое-то отношение к ActiveCell, но я не уверен, почему у него есть проблема сейчас, когда это не было раньше.Любая помощь будет оценена.

Dim taxableBox As Range
Dim vatBox As Range
Dim i As Integer
Set taxableBox = Worksheets("VAT return layout").Range("2:2").Find("Box number, Taxable Amount")
Set vatBox = Worksheets("VAT return layout").Range("2:2").Find("Box number, VAT Amount")

Worksheets("Expected VAT return").Range("B4").Select
For i = 1 To LastRow
    If [taxableBox].Offset(i, 0) <> "" And [vatBox].Offset(i, 0) <> "" Then
        ActiveCell.Value = [taxableBox].Offset(i, 0) & "/" & [vatBox].Offset(i, 0)
    ElseIf [taxableBox].Offset(i, 0) <> "" And [vatBox].Offset(i, 0) = "" Then
        ActiveCell.Value = [taxableBox].Offset(i, 0)
    ElseIf [taxableBox].Offset(i, 0) = "" And [vatBox].Offset(i, 0) <> "" Then
        ActiveCell.Value = [vatBox].Offset(i, 0)
    ElseIf [taxableBox].Offset(i, 0) = "" And [vatBox].Offset(i, 0) = "" Then
        ActiveCell.Value = ""
    End If
    ActiveCell.Offset(1, 0).Select
Next i