Need a macro that will remove the .0 but to leave the bracket with number inside in place in Column Q2 -Q40(Range)

The data look like this
15.0(4)
10.0(3)
12.0(2)
6.0(2)
9.0(1)
22.0(1)
24.0(1)
21.0(1)
20.0(1)
18.0(1)
17.0(1)
14.0(1)
13.0(1)

I need it to look like this

15(4)
10(3)
12(2)
6(2)
9(1)
22(1)
24(1)
21(1)
20(1)
18(1)
17(1)
14(1)
13(1)

Rep given for a working one thanks for your help