Переменные. Что не так? - VB

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

Dim CompareRange As Variant, x As Variant, y As Variant
   
    Set CompareRange = Worksheets("Запрос из BestOra").Range("j2:j8000")
   Set x = 1
        For Each y In CompareRange
            If y > 300000 Then x = x + 1 And Worksheets("Лист1").Range("ax") = y.Offset(0, -1)
            
        Next y

Где ошибся? Должен брать значение и один за другим проставлять, если y>300000

Решение задачи: «Переменные. Что не так?»

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

                            Dim CompareRange As Variant, x As Variant, y As Variant

Set CompareRange = Worksheets("Лист2").Range("j2:j8000")
x = 1
For Each y In CompareRange
    If y > 300000 Then x = x + 1: Worksheets("Лист1").Range("a" & x) = y.Offset(0, -1)
Next y

                        