We can just not put the zero value rows into the List Box. Change the Named Range "SampleRange1" to refer only to E68:E111. Leave off Column F.
Private Sub UserForm_Initialize() Dim Cel As Range Dim NewRange As Range For Each Cel In Range("SampleRange1") If Cel.Value <> 0 Then If NewRange Is Nothing Then Set NewRange = Cel Else Set NewRange = Union(NewRange, Cel) End If End If Next Set NewRange = Range(NewRange, NewRange.Offset(0, 1)) Me.ListBox1.RowSource = NewRange.Address End Sub