Copiar contenidos de un Combobox a celdas

Este código hace que cuando selecciones una opción del combo se copie ese dato a la celda A1 de la hoja en la que te encuentres.
Private Sub ComboBox1_Change()
Range("a1").Value = Me.ComboBox1.Text
End Sub

Bueno mil gracias por la ayuda pero ahora necesito escoger varios valores de la lista desplegable y copiarlos a celdas.
Por ejemplo: Escoger dos o más países : argentina, españa y chile de la lista y que cada uno se copie a distintas celdas y así poder tener en mis tres celdas los tres países que escogí.
Ahora solo escojo uno y me copia en una celda y escojo otro y se cambia o sino esojo uno y se repite en las tres celdas.
Por ayúdeme, necesito urgente!
Y muchísimas gracias!

¿Ok dime pero lo necesitas que se vayan copiando debajo uno de otro?

Hola experto gracias por responderme, necesito mucho de su ayuda, por favor deseo su colaboración, bueno lo que al principio me envío esta bien me funciono bien pero es solo para uno y si elijo primero un país este quiero que se copie en una celda, luego elijo otro país y quiero que se copie en otra celda y así sucesivamente, la celda puede ser una de bajo de otra o al costado. ejm:
Elijo chile:
Elijo brasil:
Elijo argentina:
Que copie en una celda
Chile
Brasil
Argentina
O que copie
Chile brasil argentina
Cada opción que elija se copie en una celda

Aquí hay una posibilidad pruébalas y me avisas:
Private Sub ComboBox1_Change()
         fila = 1
          Do While True
            If IsEmpty(Cells(fila, 1)) Then Exit Do
            fila = fila + 1 '
          Loop
        Cells(fila, 1).Value = Me.ComboBox1.Text
End Sub