Error de variable al ejecutar la función sumifs

Buenas tardes amigos!

Necesito de su valiosa ayuda para la solución a un problema que estoy presentando con un código,

En resumen, tengo dos hojas en el libro, una llamada DATA y la otra GESTION, cuando ejecuto el siguiente código me lanza el error "No se puede obtener la propiedad SumIfs de la clase WorksheetFunction"

Sub test()


Dim rango As Range


Data.Select

Set rango = Range(Range("A6").Offset(0, 14), Range("A6").Offset(0, 14).End(xlDown))


Gestion.Range("O7") = Application.WorksheetFunction.SumIfs(rango, Data.Range("K6:K60000"), "manzanas",  Data.Range("A6:A60000"), "verde", Data.Range("B6:B60000"), "casa", Data.Range("C6:C60000"), "peru")


End Sub[/CODE]

ya probé colocando en el rango de suma de la funcion SumIfs (variable rango) el rango exacto y sí me funciona, pero no entiendo por qué cuando lo almaceno en una variable me lanza ese error,

Agradeciendo de antemano , saludos,