Foro Excel

Hola a todos, soy nuevo en el foro y estoy buscando un poco de ayuda con lo que estoy haciendo, ya que no se me ocurre.
tengo la siguiente tabla de ejemplo:

Charrua 220 Peuchén 40,19 36,57 13,51 0
Maipo 220 Chiburgo 20 20 20 20
Charrua 220 Mampil 25,36 24 17,89 18,47
Los maquis 110 Chacabuquito 24,3 24,4 24,2 24,3
Charrua 220 Antuco 123 130 127 142
Charrua 154 Abanico 42 42 43 43
Itahue 154 Isla 68 68 68 68
Maipo 220 Machicura 32 32 33 33

Estoy buscando una macro que tome estos datos y los deje de la siguiente manera en otra hoja:

Charrua 220 188,55 190,57 158,4 160,47
Maipo 220 52 52 53 53
Los maquis 110 24,3 24,4 24,2 24,3
Charrua 154 42 42 43 43
Itahue 154 68 68 68 68

es decir: que la macro copie nombres de un lado a otro sin repetirlos. una ves esto, que tome los datos de las filas con mismo nombre y los sume, luego los copie en la otra hoja con su nombre respectivo. Si no se repite el nombre, que solo copie el nombre y los datos respectivos.

Para empezar hise una macro de copiado y pegado a otra hoja

Sub macro_copiado()
Dim j, i, As Long

For i = 1 To 8 Step 1

For j = 1 To 6 Step 1

Worksheets("test").Cells(i, j).Value = Worksheets("gen_modif").Cells(i, j).Value

Next j

Next i
End Sub

pero para poder seguir, no se me ha podido ocurrir nada ... intente meter if dentro de los ciclos for, pero hay que hacer muchas comparaciones... es por esto que recurro a ustedes, como lo harian ustedes ? ( hablando de macros)
ayuda pliiis..

javo escribió:Hola a todos, soy nuevo en el foro y estoy buscando un poco de ayuda con lo que estoy haciendo, ya que no se me ocurre.
tengo la siguiente tabla de ejemplo:

Charrua 220 Peuchén 40,19 36,57 13,51 0
Maipo 220 Chiburgo 20 20 20 20
Charrua 220 Mampil 25,36 24 17,89 18,47
Los maquis 110 Chacabuquito 24,3 24,4 24,2 24,3
Charrua 220 Antuco 123 130 127 142
Charrua 154 Abanico 42 42 43 43
Itahue 154 Isla 68 68 68 68
Maipo 220 Machicura 32 32 33 33

Estoy buscando una macro que tome estos datos y los deje de la siguiente manera en otra hoja:

Charrua 220 188,55 190,57 158,4 160,47
Maipo 220 52 52 53 53
Los maquis 110 24,3 24,4 24,2 24,3
Charrua 154 42 42 43 43
Itahue 154 68 68 68 68

es decir: que la macro copie nombres de un lado a otro sin repetirlos. una ves esto, que tome los datos de las filas con mismo nombre y los sume, luego los copie en la otra hoja con su nombre respectivo. Si no se repite el nombre, que solo copie el nombre y los datos respectivos.

Para empezar hise una macro de copiado y pegado a otra hoja

Sub macro_copiado()
Dim j, i, As Long

For i = 1 To 8 Step 1

For j = 1 To 6 Step 1

Worksheets("test").Cells(i, j).Value = Worksheets("gen_modif").Cells(i, j).Value

Next j

Next i
End Sub

pero para poder seguir, no se me ha podido ocurrir nada ... intente meter if dentro de los ciclos for, pero hay que hacer muchas comparaciones... es por esto que recurro a ustedes, como lo harian ustedes ? ( hablando de macros)
ayuda pliiis..

Disculpen, la tabla n ose ve bien, pero seria algo asi
Charrua 220 I Peuchén I 40,19 I 36,57 I 13,51 I 0
Maipo 220 I Chiburgo I 20 I 20 I 20 I 20
Charrua 220 I Mampil I 25,36 I 24 I 17,89 I 18,47
Los maquis 110 I Chacabuquito I 24,3 I 24,4 I 24,2 I 24,3
Charrua 220 I Antuco I 123 I 130 I 127 I 142
Charrua 154 I Abanico I 42 I 42 I 43 I 43
Itahue 154 I Isla I 68 I 68 I 68 I 68
Maipo 220 Machicura 32 32 33 I 33

Estoy buscando una macro que tome estos datos y los deje de la siguiente manera en otra hoja:

Charrua 220 I 188,55 I 190,57 I 158,4 I 160,47
Maipo 220 I 52 I 52 I 53 I 53
Los maquis 110 I 24,3 I 24,4 I 24,2 I 24,3
Charrua 154 I 42 I 42 I 43 I 43
Itahue 154 I 68 I 68 I 68 I 68

puse unas I para simular las separaciones entre celdas