Como hacer que un boton copie en celdas impares y solo ahi

[sechg]

Buenas tardes quiero saber como con una macro que me copie datos de una celda solo en unas celdas impares y solo en cierto rango es decir

que me copie en la A en la Cy asi sucesivamente y en un rango de =C4:BA9
A B C D

tengo este codigo pero no me funciona como quiero

Sub Macro_COPYRESTO()
Dim RangoCeldas As Range 'rango de celdas
Dim FilaEnRango As Range 'fila a pintar en el rango de celdas
Dim i As Integer 'contador de filas
Dim lngcantidad&



Set RangoCeldas = Selection 'rango de celdas seleccionadas
i = 1 'inicializa para la primera fila
For Each FilaEnRango In RangoCeldas.Rows 'por cada fila del rango
If i Mod 2 <> 0 Then 'si la fila es impar
lngcantidad& = Application.WorksheetFunction.CountIf(Range("D4:BA 9"), "contar")
With worksheets("Global")
ActiveCell.Value = .Cells(ActiveCell.row, 3).Value
End With
Else
If i Mod 2 <> 1 Then
lngcantidad& = Application.WorksheetFunction.CountIf(Range("D4:BA 9"), "contar")
FilaEnRango = RangoCeldas.Rows.Locked
MsgBox ("no se puede modificar")

End If
End If
Next
End Sub