VB Macro to Populate Row from J30

[KCG]

Hello there,

Please help! I want to populate the row from J30 with values as follows:

- If all the values in J10:J14 are black, then take the value in J14 and put
it in J30.

- Similarly, if all the values in K10:K14 are black, then take K14 and put
it in J31.
(This process needs to be looped across the range J10:AA14).

- When it has finished this routine, it must then copy the values from
B31:F31 as the next values to further populate row J30.

Thanx once again for your help.

Regards