Как дописать в макрос.............?

[Artem_85]

Есть макрос

Sub 1()
Dim myF As Range
For i = 7 To Sheets(2).Range("C7").End(xlDown).R ow
Set myF = Sheets(1).Columns(4).Find(Sheets(2) .Range("C" & i), , , xlWhole)
If Not myF Is Nothing Then
Sheets(2).Range("V" & i) = Sheets(1).Range("E" & myF.Row)
End If
Next
End Sub

сравнивает два столбца на разных листах столбец( C на листе 2 и столбец D на втором листе) и при совпадении выводит значение из столбца Е.Что надо дописать что бы сравнивались еще два столбца (В на листе1 и столбец А на листе2) и при 100% совпадении по двум условиям выводилось значение из столбца Е

[AKSENOV048]

обработка примерно 3 сек.
Sub io()
Dim cell As Range, x As Range
Application.ScreenUpdating = 0
For Each cell In Sheets(2).UsedRange.Offset(6).Colum ns("C").Cells
Set x = Sheets(1).UsedRange.Offset(7).Colum ns("D").Find(cell, , , 1)
If Not x Is Nothing Then
If x.Offset(, -2).Value = cell.Offset(, -2).Value Then
cell.Offset(, 1).Value = x.Offset(, 1).Value
End If
End If
Next
Application.ScreenUpdating = 1
End Sub

[Artem_85]

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

обработка примерно 3 сек.
Sub io()
Dim cell As Range, x As Range
Application.ScreenUpdating = 0
For Each cell In Sheets(2).UsedRange.Offset(6).Colum ns("C").Cells
Set x = Sheets(1).UsedRange.Offset(7).Colum ns("D").Find(cell, , , 1)
If Not x Is Nothing Then
If x.Offset(, -2).Value = cell.Offset(, -2).Value Then
cell.Offset(, 1).Value = x.Offset(, 1).Value
End If
End If
Next
Application.ScreenUpdating = 1
End Sub

ошибка в 4 и 5 строчке

[AKSENOV048]

4,5 строка в коде?
уберите пробел в слове Colum ns