Copiar valor index match en celdas alternas

Espero me podáis ayudar, tengo un código pero me estoy estancada y no consigo que la función que he creado de índice y match me recorra toda la columna E de la hoja Bco y la copie en la hoja DBF en la columna C desde la celda 3 cada dos filas y el mismo valor en la columna D desde la celda 2 cada dos filas.

Adjunto el código que tengo hasta ahora. Gracias de antemano

Sub AplicaCuentas()
Dim Range As Range
Dim i As Integer
Dim UltimaFila As Long
UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To UltimaFila Step 2 'incremento de dos en dos 2, 4, 6, ...)

Sheets("Bco").Range("I1").Copy
Sheets("DBF").Cells(i, 3).PasteSpecial Paste:=xlValues
Sheets("DBF").Cells(i + 1, 4).PasteSpecial Paste:=xlValues
Next i
' (INDICE(S!$A$1:$A$1033;COINCIDIR(Bco!$E$1;Palabras;0);0))
Set IRange = Sheets("S").Range("A1:A199")
 Lvalue = Sheets("Bco").Range("E1").Value
Set Vrange = Sheets("S").Range("E1:E999")
 Set Mycell = Sheets("DBF").Range("C3")
Mycell.Value = Application.WorksheetFunction.Index(IRange, Application.WorksheetFunction.Match(Lvalue, Vrange, False), 1)

End Sub