Private Sub UserForm_Initialize()
With Sheets("base")
ComboBox1.List = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Value
ComboBox2.List = .Range("B2:B" & .Range("B65536").End(xlUp).Row).Value
ComboBox3.List = .Range("D2:D" & .Range("C65536").End(xlUp).Row).Value
ComboBox4.List = .Range("F2:F" & .Range("F65536").End(xlUp).Row).Value
ComboBox6.List = .Range("E2:E" & .Range("E65536").End(xlUp).Row).Value
ComboBox7.List = .Range("C2:C" & .Range("C65536").End(xlUp).Row).Value
End With
End Sub