Userform: ComboBox Automatically Populating

try changing it to this:

With Sheet3
    .Range("A1").End(xlDown).Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlNo
End With