Llenar celdas de acuerdo a la lista

[cuadros08]

Que tal Buen Dia.

Tengo un problemita de como hacer una macro para que llene las celdas de acuerdo a una lista la cual esta en otro archivo de nombre Macro KPI, esta lista es variable puede haber mas familias o mas modelos, el resultado de como se veria despues de correr la macro es el archivo de nombre ejemplo, tengo la mitad de la macro, la primir parte solo inserta filas de acuerdo al total de tabs en el archivo ejemplo, la otra parte es el problema que planteo sobre el llenado de las celdas de acuerdo a la lista. el total de tabs es igual al total de de filas insertadas - 1

Primer parte (inserta las filas)

Sub InsertarFilas()

For x = 1 To Sheets.Count - 2

On Error Resume Next

Rows("18:21").Select

Selection.Copy

Selection.Insert Shift:=xlDown

On Error GoTo 0

Next x

End Sub

Segunda parte (llenado de filas)

¿?

Espero y me puedan ayudar.

Saludos a todos los del foro, anexo los archivos.

ejemplo.xls

Macro KPI.xls

[cuadros08]

Que tal.

Saludos a todos los del Foro.

Habra alguien que me pudiera ayduar con este problemita