Hello, I'm new to this site and new to VBA.

I need to write code in VBA that will do this:

If the number 1 is generated in cells B23 to B28, I need a 1 placed in B17. If 1 isn't generated in cells B23 to B28, I need a zero placed in B17.

If 2 is generated in cells B23 to B28, I need a 1 placed in B18. If 2 isn't generated in cells B23 to B28, I need a zero placed in B18.

If 3 is generated in cells B23 to B28, I need a 1 placed in B19. If 3 isn't generated in cells B23 to B28, I need a zero placed in B19.

If 4 is generated in cells B23 to B28, I need a 1 placed in B20. If 4 isn't generated in cells B23 to B28, I need a zero placed in B20.

If 5 is generated in cells B23 to B28, I need a 1 placed in B21. If 5 isn't generated in cells B23 to B28, I need a zero placed in B21.

If 6 is generated in cells B23 to B28, I need a 1 placed in B22. If 6 isn't generated in cells B23 to B28, I need a zero placed in B22.