Ошибка 91 Object variable or With block variable not set - VBA

Формулировка задачи:

Помогите, пожалуйста. Выдает ошибку Object variable or With block variable not set реакция на строчку num = y + 1 если поставить num = num + 1 то всё ок именно из-за переменной y ругается. Не могу понять, а что не так-то с этой переменной ((

Dim kolvo As Long
 Dim n As Integer
 Dim num As Variant
 kolvo = Application.CountIf(Range("a4:a" & j), Range("a4").Offset(str1, 0).Value)
 num = str1
 
 For n = 0 To kolvo
 
 Set x = Range(Cells(4, 1).Offset(num, 0), Cells(j, 1)).Find(Range("a4").Offset(str1, 0).Value, , xlValues)  
 Address = x.Address
 Dim y As Variant
 y = x.Row
 
 If Not Range(Address).Offset(0, 3) = "" Then 
      ActiveSheet.Range(start2).Offset(str2, 1) = Range(Address).Offset(0, 1).Value 'column B'
      ActiveSheet.Range(start2).Offset(str2, 2) = Range(Address).Offset(0, 2).Value 'column C'
      ActiveSheet.Range(start2).Offset(str2, 3) = Range(Address).Offset(0, 3).Value 'price for 1kg - column D'
      num = y + 1
 Else
      num = y + 1
 End If
 
 Next n

Решение задачи: «Ошибка 91 Object variable or With block variable not set»

textual
                            Листинг программы 
                        

                            Public j  As Variant
Dim str1 As Integer
Dim kolvo As Long
Dim n As Integer
Dim num As Variant
 
kolvo = Application.CountIf(Range("a4:a" & j), Range("a4").Offset(str1, 0).Value)
num = str1
 
For n = 1 To kolvo   
            
   Set x = Range(Cells(4, 1).Offset(num, 0), Cells(j, 1)).Find(Range("a4").Offset(str1, 0).Value, , xlValues)  
   Address = x.Address
   num = x.Row
 
  If Not Range(Address).Offset(0, 3) = "" Then     
                                                                
      ActiveSheet.Range(start2).Offset(str2, 1) = Range(Address).Offset(0, 1).Value 
      ActiveSheet.Range(start2).Offset(str2, 2) = Range(Address).Offset(0, 2).Value 
      ActiveSheet.Range(start2).Offset(str2, 3) = Range(Address).Offset(0, 3).Value
 
  Else
 
      MsgBox "But, in the row В№ " & num & " no price..."
 
  End If   
 
Next n
                        