Отредактировать макрос

[Romuald]

Добрый день!
Помогите, пожалуйста, отредактировать макрос переноса данних, если данные у меня в колонках J и K (выделил желтым) , а не в А и В

[EducatedFool]

Sub PerenosDannih()
    Dim i As Long, j As Long, x As Range
    Application.ScreenUpdating = False
    Sheets("Sheet1").Activate
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Set x = Sheets("Sheet2").Columns(10).Find(What:=Cells(i, 1).Value, LookAt:=xlWhole)
        If Not x Is Nothing Then Cells(i, 2) = x.Next
    Next i
End Sub

[Romuald]

Спасибо большое!
Еще один вопрос по этому макросу
При запуске Макрос обновляет данные. А как сделать , если данные в колонке В не обновлять, а дописывать там,где их нет , а если вручную поставил или изменил , то макрос не тронул данные ,а заполнил только пустые ячейки?

[EducatedFool]

Sub ОбновлениеДанных()
    Dim i As Long, j As Long, x As Range
    Application.ScreenUpdating = False
    Sheets("Sheet1").Activate
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Set x = Sheets("Sheet2").Columns(10).Find(What:=Cells(i, 1).Value, LookAt:=xlWhole)
        If Not x Is Nothing Then Cells(i, 2) = x.Next
    Next i
End Sub

А как сделать , если данные в колонке В не обновлять, а дописывать там,где их нет , а если вручную поставил или изменил , то макрос не тронул данные ,а заполнил только пустые ячейки?

Sub ДобавлениеДанных()
    Dim i As Long, j As Long, x As Range
    Application.ScreenUpdating = False
    Sheets("Sheet1").Activate
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Trim$(Cells(i, 2).Value) = "" Then ' если во втором столбце пусто'
            Set x = Sheets("Sheet2").Columns(10).Find(What:=Cells(i, 1).Value, LookAt:=xlWhole)
            If Not x Is Nothing Then Cells(i, 2) = x.Next
        End If
    Next i
End Sub