我用的是wps电子表格，请问下面这个问题的完整vba代码是怎么写的？要完整的，我是初学者。

单元格事件
这个代码
就可以
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
tr = Target.Row
tc = Target.Column
If tr = 21 And tc = 4 Then
N = WorksheetFunction.CountIf(Range("D21:AA21"), "<>")
Cells(21, N + 4) = [D21]
End If
End Sub
D1:E18数据有变化，单击D21，就执行代码
不晓得你的wps能支持vba？