did any way to show only meet condition value?

[[kinder]]

i have a code that showing all the value at column C, but now i would like to show the C value when the row D until J got any empty cell only.

below is the code that i am using.

thanks and regards,
Kinder

Private Sub UserForm_Initialize()
    With Worksheets("sheet1")
        Me.list1.List = .Range("C2:C" & .Range("C" & .Rows.Count).End(xlUp).Row + 1).Value
    End With
End Sub