Sub COLOR()
'
'
'Inti
Windows("ejemplo.xlsx").Activate
Sheets("INDEX").Activate
ActiveSheet.Range("$A$4:$K$2725").AutoFilter Field:=1, Criteria1:= _
"Inti"
Range("F2").Copy
Windows("ejemplo1.xlsx").Activate
Sheets("Inti").Activate
Cells(Range("B65536").End(xlUp).Row + 1, 3).PasteSpecial Paste:=xlPasteValues
'Raymi
Windows("ejemplo.xlsx").Activate
Sheets("INDEX").Activate
ActiveSheet.Range("$A$4:$K$2725").AutoFilter Field:=1, Criteria1:= _
"Raymi"
Range("F2").Copy
Windows("ejemplo1.xlsx").Activate
Sheets("Raymi").Activate
Cells(Range("B65536").End(xlUp).Row + 1, 3).PasteSpecial Paste:=xlPasteValues
'Magu
Windows("ejemplo.xlsx").Activate
Sheets("INDEX").Activate
ActiveSheet.Range("$A$4:$K$2725").AutoFilter Field:=1, Criteria1:= _
"Magu"
Range("F2").Copy
Windows("ejemplo1.xlsx").Activate
Sheets("Magu").Activate
Cells(Range("B65536").End(xlUp).Row + 1, 3).PasteSpecial Paste:=xlPasteValues
End Sub