COpiar una celda varias veces

Espero que me puedan ayudar.

Estoy generando un código en el cual las variables involucradas son:

Actividad, Frecuencia (Días), Fecha, cada dato escrito en su respectiva celda.

La idea es que por cada fila, el código debe copiar la actividad, según la frecuencia indicada en esta celda.

Por ejemplo, si en una determinada fila la Actividad "A", posee una frecuencia de 3 días, entonces "A" debe copiarse cada 3 celdas. (Ya que la planilla es como un calendario).

ESTE es mi código, pero nose como seguir.

Ojalá me ayuden. Saludos.

Dim act As String
Dim fecha As Date
Dim Frec As Integer
Dim contador As Integer
Dim F As Integer

LastRow = Worksheets("PROGRAMA PREVENTIVO 2015").Cells(65536, 1).End(xlUp).Row
Dim UltCol As Integer
UltCol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
For i = 5 To LastRow
act = Worksheets("PROGRAMA PREVENTIVO 2015").Cells(i, 5)
fecha = Worksheets("PROGRAMA PREVENTIVO 2015").Cells(i, 10)
Frec = Worksheets("PROGRAMA PREVENTIVO 2015").Cells(i, 9)
cont = 0
For y = 19 To UltCol
If fecha = Worksheets("PROGRAMA PREVENTIVO 2015").Cells(i, 5) Then
Worksheets("PROGRAMA PREVENTIVO 2015").Cells(i, y) = act
cont = cont + 1
F = Frec + (cont * Frec)
Worksheets("PROGRAMA PREVENTIVO 2015").Cells(i, F) = act
End If
Next y
Next i