VBA如何修改这个公式

qq314313954

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&, lastrow&
lastrow = Cells(Rows.Count, 28).End(xlUp).Row
For i = 3 To lastrow
If Target.Column = 28 _
And Sheets("新汇在职人员花名册12月").Range("ab" & i) = 0 Then
Sheets("新汇在职人员花名册12月").Range("aa" & i) = ""
End If
Next
End Sub

各位老师，这个公式28列中单元格数据手动输入为0时，自动清空27列对应一行的单元格数据。
我需要怎么修改代码，满足28列单元格数据是公式计算的，当计算28列为0时，自动清空对应数据。不需要手动输入28列。