[Iska]

есть файл excel, в нем 5 столбцов и 15 строк. »

Всегда выкладывайте образец документа.

Код:

Option Explicit

Const xlUp = &HFFFFEFBE


Dim objExcel
Dim objRange
Dim objRange4Remove


Set objExcel = WScript.CreateObject("Excel.Application")

With objExcel
	With .Workbooks.Open("C:\Песочница\026\Книга1.xls")
		With .Worksheets.Item(1)
			Set objRange4Remove = Nothing
			
			For Each objRange In .Range("E2:E16")
				If objRange.Value = 0 Then
					If objRange4Remove Is Nothing Then
						Set objRange4Remove = objRange.EntireRow
					Else
						Set objRange4Remove = objExcel.Union(objRange4Remove, objRange.EntireRow)
					End If
				End If
			Next
		End With
		
		If Not objRange4Remove Is Nothing Then
			WScript.Echo objRange4Remove.Address
			objRange4Remove.Delete xlUp
			.Save
		Else
			WScript.Echo "Nothing found"
		End If
		
		.Close
	End With
	
	.Quit
End With

Set objExcel = Nothing

WScript.Quit 0

И, кстати, не рекомендую работать с предопределёнными количественными адресами в виде «в нем 5 столбцов и 15 строк».