excel中，改正VBA代码（真的很有挑战）

Private Sub Worksheet_Change(ByVal my As Range)
On Error Resume Next

If my.Column = 2 Then
For Each rng In Range([b2], [b65536].End(xlUp))
If rng <> "" And rng(1, 2) <> Range("c1") Then rng(1, 2) = [$a$2] & rng
Next
End If

If my.Column = 2 Then
For Each rng In Range([b2], [b65536].End(xlUp))
If rng <> "" And rng(1, 3) <> Range("d1") Then rng(1, 3) = [$a$2] & rng
Next
End If

If my.Column = 2 Then
For Each rng In Range([b2], [b65536].End(xlUp))
If rng <> "" And rng(1, 5) <> Range("f1") Then rng(1, 5) = [$f$2]
Next
End If

End Sub
上面的代码可以运行，但是存在一个很严重的问题，当数据很多时，如果我再添加和改正b列中的某行数据时，更新的速度很慢，好像改正或添加b列中的某行数据时,以前添加的数据都要更新一遍，能不能改进一下代码，当添加和改正b列中的某行数据时，就只更新某行数据，其它行不要更新。请大大侠帮帮忙了

如何在EXCEL表格中,控制VBA代码的执行 excel vba代码能否简化？ excel中VBA的问题 excel中用vba编写限制excel使用次数的代码 急急急：怎么从access数据库中查询数据调到EXCEL单元格中啊？在VBA中的连接代码是什么？ 关于excel中vba宏的编写 关于EXCEL中VBA的问题 excel中vba的正则表达式 vba excel excel vba