pnlaplicada

Suponiendo que tienes en la celda A1 el costo (530) y en A2 la venta (860), entonces la utilidad es lo que ganaste, dividido entre el precio que te costó (en este ejemplo, 330/560 - ganaste 330 que salen de calculas 860-530). La fórmula simplificada...

Sencillo, utiliza la función Offset Range("A1").End(xlToRight).End(xlDown).Offset(1, 0).Activate