Макрос пишет не туда, куда надо

[kzld]

Помогите доработать макрос.
Макрос в файле kassa_2009.xlsm вставляет значения в ячейки J2, J3,j5 и K2, K3, K5 хотя туда он писать не должен

[doober]

 Do
            j = IIf(x.Column = 5, 2, 10)
            Set y = ws.[A:A].Find(what:=Cells(x.Row, "G"), LookAt:=xlWhole)
            If Not y Is Nothing Then
                For i = 7 To 2000

[kzld]

Сообщение от doober

 Do
            j = IIf(x.Column = 5, 2, 10)
            Set y = ws.[A:A].Find(what:=Cells(x.Row, "G"), LookAt:=xlWhole)
            If Not y Is Nothing Then
                For i = 7 To 2000

СПАСИБО
Спасибо