Excel 删除行 vba？

以删除当前工作表为例：
Sub 删除0值行()
Dim sh As Worksheet, arr, ads$
Set sh = ActiveSheet
arr = sh.Range("E1:E20").Value
For i = 1 To UBound(arr)
If arr(i, 1) = 0 Then
ads = ads & "," & sh.Cells(i, 1).Address(0, 0)
End If
Next
ads = Mid(ads, 2)
sh.Range(ads).EntireRow.Delete
End Sub

sub删除指定sheet指定内容行（）

fori=1to20

ifsheets("指定sheet名").cells(i,5)=0then rows(i&":"&i).delete

next

end sub