Help writing a macro.

In Row 1 from A to M have fomular where if a condition is correct it will be "1", if not "zero". Only one cell from A to M can have a "1" in one situation. I want to write a macro to when a cell within A to M is equal to 1, I want the macro to copy the data of the 4 cells rite below the cell with the value "1".

Any help folks.