del programa Neodata me genera un reporte de un calendario de obra, este reporte cambia segun el calendario, cada celda tiene una cantiad ya sea por mes, semana o quincena, las tareas o conceptos tambien cabian segun la obra, entonces puedo tener un rango de celdas diferentes en columnas o filas, ejemplo, de columana A1 hasta Y1 seria una tarea y en Z1 tendria la el costo salario de lo que cuesta esta tarea, luego A2 hasta Y2 la senga tarea y el costo en la columna Z2, lo que quisiera pero con macro y obvio sin insertar filas al lado de A1 y asi sucesivamente, seria multiplicar A1 por Z1, luego B1 por Z1...etc si es posible que me de el resultado o cambie la cantaidad en el mismo A1, B1... etc pero si no es posible ya con que me mande la cantidad a otra hoja seria bueno. espero haberme dado a entender, ya he buscado por 15 dias en el internet sin exito, lo mas cercano que he encontrado es esta macro aqui donde se divide entre 8, que tambien lo necesito y me quedo resuelto, pero como en el archivo que adjunto necesito multilplicar cada celda de la fiala de la Columna A a la Columna Y, por cada cantidad de la columna Z ya que en las filas es la cantidad de jornales de los trabajadores, y en la columna z esta el precio o salario, entonces necesito saber cuanto dinero requiero para pagar los salarios por semana. Gracias.

Public Sub entreHoras()

   Dim dataArea As Excel.Range

   Set dataArea = ThisWorkbook.Worksheets("Hoja1").Range("A2:y144")

   Dim valuesArray() As Variant

   valuesArray = dataArea.Value   

   Dim rowIndex As Long

   Dim columnIndex As Long

   For rowIndex = LBound(valuesArray, 1) To UBound(valuesArray, 1)

      For columnIndex = LBound(valuesArray, 2) To UBound(valuesArray, 2)

         If valuesArray(rowIndex, columnIndex) > 0 Then

            valuesArray(rowIndex, columnIndex) = valuesArray(rowIndex, columnIndex) / 8

         End If

      Next

   Next   

   dataArea.Value = valuesArray

End Sub