Sub ComboBox1_Change()
Application.ScreenUpdating = False
Worksheets("base data").Activate
Range("A1").Select
Selection.Cells((ComboBox1.ListIndex + 9), 4).Copy
Sheets("A").Select
Range("C11").Select
Selection.PasteSpecial Paste:=xlValues
Worksheets("base data").Select
Range("A1").Select
Selection.Cells((ComboBox1.ListIndex + 9), 6).Copy
Sheets("A").Select
Range("C10").Select
Selection.PasteSpecial Paste:=xlValues
Worksheets("base data").Select
Range("A1").Select
Selection.Cells((ComboBox1.ListIndex + 9), 7).Copy
Sheets("A").Select
Range("C18").Select
Selection.PasteSpecial Paste:=xlValues
Application.ScreenUpdating = True
End Sub