Sub ToggleHideRows()
Dim c As Range
For Each c In Range("V15:V19")
If Not IsEmpty(c) And c.Value = 0 Then             ' если не empty и =0, то...
c.EntireRow.Hidden = Not c.EntireRow.Hidden ' поменять значение видимости строки на противоположное, т.е. видимую сделать невидимой, а невидимую - видимой.
End If
Next 
End Sub

Sub ToggleHideRows()
Dim c As Range
For Each c In Range("V15:V19")
If c.Value = 0 Then             ' если 0, то...
c.EntireRow.Hidden = true 
else
c.EntireRow.Hidden = false
End If
Next
End Sub

Sub ToggleHideRows()Dim c As Range
For Each c In Range("V15:V19")
select case c.Value
case 0 
c.EntireRow.Hidden = true 
case 1
c.EntireRow.Hidden = false
End select
Next
End Sub

Sub Без_пустых()
    Dim r&, nr&, arr
    arr = Range("A1:C" & Cells(Rows.Count, 1).End(xlUp).Row)
'    ReDim b(1 To UBound(arr), 1 To 3)
For r = 1 To UBound(arr)
    If arr(r, 1) <> "" Then
       nr = nr + 1
       arr(nr, 1) = arr(r, 1)
       arr(nr, 2) = arr(r, 2)
       arr(nr, 3) = arr(r, 3)
    End If
Next r
    Range("F1:H1").Resize(nr) = arr
End Sub