Moving and storing values between two listboxes and excel sheet

[Jacob Hilderbrand]

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