Buenas noches, hace un tiempo necesite transformar archivos de excel a KML, me fue muy útil esta herramienta (pero solo acepta hasta 200 registros): www.earthpoint.us/exceltokml.aspx
Si tienen mas datos pueden usar esta macro:
Sub KML_DPTO()
Dim temp As String
Dim latitud As String
Dim longitud As String
Dim descripcion As String
Dim name As String
Dim j As Integer
Open "D:\carpeta\Nombre del archivo.kml" For Output As #1