VBA如何实现自动填充?

请教VBA如何实现自动填充
请教大侠如何用VBA实现上述相对应的功能：        
1、当 G H I列 出现任意行代码与姓名相对应的“参数1”时，参数就自动填写到 C列 中对应单元格“参数1”里，
2、当 K L M列 出现任意行代码与姓名相对应的“参数2”时，参数就自动填写到 D列 中对应单元格“参数2”里，
3、当 O P Q列 出现任意行代码与姓名相对应的“参数2”时，参数就自动填写到 E列 中对应单元格“参数3”里，
4、自动生成合计数。  

谢谢
--------------------编程问答-------------------- set sh1=worksheets(1)
for i=2 to N  
if sh1.cells(i,7)="参数1" or sh1.cells(i,8)="参数1" or sh1.cells(i,9)="参数1" then _
  sh1.cells(i,3)="参数1"
next



--------------------编程问答-------------------- 0分的不答

补充：VB ,  VBA