Pasar importes de filas a su respectiva columna según ID

Buen dia experto, te comento estoy tratando de realizar un código para macro para realizar lo siguiente
Tengo 2 hojas Una llamada Base y otra Resumen
La estructura de la hoja Base es la siguiente, empieza en A1:D1 con los encabezados
ID NumC Concepto Importe
2 1 Manzana 1200.00
2 5 Pera(US) 7168.35
2 93 Jicama(7) 4000.00
1 5 Perú(US) 800.25
1 1 Manzana 355.23
17 93 Jicama(7) 1322.01
17 1 Manzana 500.00
17 96 Pepino 251.26
17 34 Sandia 158.76
17 85 Melón 25863.41
A130 1 Manzana 3723.81
A130 85 Melón 1000.00
A130 96 Pepino 5785.20
A130 34 Sandia 33102.03
Estoy tratando de hacer una hoja resumen y acomodar las filas en la columna de acuerdo al nombre del encabezado y al ID, es decir debería quedar asi
Hoja RESUMEN los encabezados comienzan en A6:G6
ID Manzana Jicama(7) Pepino Sandia Pera(US) Melón
2 1200.00 4000.00 7168.35
1 355.23 800.25
17 500.00 1322.01 251.26 158.76 25863.41
A130 3723.81 5785.20 33102.03 1000
Salvo tu mejor opinión yo pensaría en que las filas de la hoja Base se pasen a la Hoja Resumen se pintaran de rojo por si hay alguna fruta que no tenga en el encabezado de la hoja Resumen y asi darme cuenta, claro que estaría super si se agregara al encabezado automáticamente. El numero de fila es variable

En caso de que existieran dos o mas anotaciones con el mismo Id y Concepto (fruta) se tendría que sumar y poner un id único con el valor total

Envío a tu correo el archivo para una mejor comprensión y con el código que tengo y que no funciona

Gracias

Saludos