analysisSheet.Cells(f, 14).Value =
(WorksheetFunction.Lookup
	(WorksheetFunction.Index
		(deadRange, WorksheetFunction.CountIf
			(deadRange, " >= " &
				(WorksheetFunction.Max(deadRange) / 2)
			)
		), deadRange, concRange
	)
)
-
(
	(
		(WorksheetFunction.Index
			(deadRange, WorksheetFunction.CountIf
				(deadRange, " >= " &
					(WorksheetFunction.Max(deadRange) / 2)
				)
			)
		)
		-
		(WorksheetFunction.Max(deadRange) / 2)
	)
	*
	(
		(WorksheetFunction.Lookup
			(WorksheetFunction.Index
				(deadRange, WorksheetFunction.CountIf
					(deadRange, " >= " &
						(WorksheetFunction.Max(deadRange) / 2)
					)
				), deadRange, concRange
			)
		)
		-
		(WorksheetFunction.Lookup
			(WorksheetFunction.Index
				(deadRange, WorksheetFunction.CountIf
					(deadRange, " <= " &
						(WorksheetFunction.Max(deadRange) / 2)
					)
				), deadRange, concRange
			)
		)
	)
	/
	(
		(WorksheetFunction.Index
			(deadRange, WorksheetFunction.CountIf
				(deadRange, " >= " &
					(WorksheetFunction.Max(deadRange) / 2)
				)
			)
		)
		-
		(WorksheetFunction.Index
			(deadRange, WorksheetFunction.CountIf
				(deadRange, " <= " & (WorksheetFunction.Max(deadRange) / 2))
			)
		)
	)
)