Contar.si.conjunto no calcula vba

[astrokiller]

Estimad@s:

Les comento, mediante VBA estoy aplicando la formula contar.si.conjunto que cuenta una cantidad de documentos en un rango de tiempo el tema es que la formula no calcula y se queda con el valor de la primera celda aqui el codigo para que puedan nentender mejor:

    Range(Cells(ActiveCell.Row, ActiveCell.Column + 1), Cells(ActiveCell.Row, ActiveCell.Column + 1)).Select

    ActiveCell.FormulaR1C1 = "=COUNTIFS(RC2:RC" & columna & ",""<>""&"""",R2C2:R2C" & columna & ",R4C)"

    Selection.AutoFill Destination:=Range(ActiveCell, Cells(lastCell, ActiveCell.Column))

    Range(Selection, Selection.End(xlDown)).Select

    ActiveSheet.Calculate

    Selection.Copy

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False


[/CODE]

Esperando me puedan ayudar a resolver esto, quedo atento a sus comentarios.

desde ya muchas Gracias