请高手帮我把几个代码和判断结合起来组成一个新的宏！

上清宫主

牛，太牛，真是牛，不一般牛
友情顶贴，打酱油去了

诚信740

请高手帮忙！

wenzili

伪代码：
第一步
if k22<>[beferk22] then
names.add name:="beferk22", refersto:=k22
执行第二步
Sub 汇总()
For i = 1 To 600
Call test
for each 变量 in  N22:R22
if  变量=1 then
[B19:B26].Copy [I21]
exit sub
end if
next
Next i
End Sub