Thanks for your help.
This is what the formula looks like in full still not working
If(
Sum(If(IsBlank(R1_1V), 0, 1),Sum(If(IsBlank(R1_2V), 0, 1)),Sum(If(IsBlank(R1_3V), 0, 1)),Sum(If(IsBlank(R1_4V), 0, 1)),Sum(If(IsBlank(R2_1V), 0, 1)),Sum(If(IsBlank(R2_2V), 0, 1)),Sum(If(IsBlank(R3_1V), 0, 1)),Sum(If(IsBlank(R3_2V), 0, 1)),Sum(If(IsBlank(R3_3V), 0, 1)),Sum(If(IsBlank(R3_4V), 0, 1)),Sum(If(IsBlank(R4_1V), 0, 1)),Sum(If(IsBlank(R4_2V), 0, 1)),Sum(If(IsBlank(R4_3V), 0, 1)),Sum(If(IsBlank(R4_4V), 0, 1)),Sum(If(IsBlank(R4_5V), 0, 1)),Sum(If(IsBlank(R5_1V), 0, 1)),Sum(If(IsBlank(R5_2V), 0, 1)),Sum(If(IsBlank(R6_1V), 0, 1)),Sum(If(IsBlank(R6_2V), 0, 1)),Sum(If(IsBlank(R6_3V), 0, 1))) > 0,
Run(Justification_Output.Run(R1_1V.Text,R1_2V.Text,R1_3V.Text,R1_4V.Text,R2_1V.Text,R2_2V.Text,R3_1V.Text,R3_2V.Text,R3_3V.Text,R3_4V.Text,R4_1V.Text,R4_2V.Text,R4_3V.Text,R4_4V.Text,R4_5V.Text,R5_1V.Text,R5_2V.Text,R6_1V.Text,R6_2V.Text,R6_3V.Text)