来个大哥棒棒忙，怎么修改可以执行多行呢，比如7,10,15。

这个代码网上抄的，主要是记录数据，但是只能记录一行的，我想记录多行，比如7,10,15行的数据都得记录。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 5 Then Exit Sub
t = Now()
If Target.Comment Is Nothing Then
Target.AddComment.Text t & " " & IIf(Target = "", "清空", Target)
Else
Target.Comment.Text Target.Comment.Text & Chr(10) & t & " " & IIf(Target = "", "清空", Target)
End If
End Sub