Gente, eu preciso fazer uma matriz como está:

ReDim Preserve dados(38, 12)
For c = 1 To 38
Worksheets.Item(c).Select
dados(c, 1) = Sheets(c + 15).Range("F14")
dados(c, 2) = Sheets(c + 15).Range("F19")
dados(c, 3) = Sheets(c + 15).Range("F24")
dados(c, 4) = Sheets(c + 15).Range("F29")
dados(c, 5) = Sheets(c + 15).Range("F34")
dados(c, 6) = Sheets(c + 15).Range("F39")
dados(c, 7) = Sheets(c + 15).Range("F44")
dados(c, 8) = Sheets(c + 15).Range("F49")
dados(c, 9) = Sheets(c + 15).Range("F54")
dados(c, 10) = Sheets(c + 15).Range("F59")
dados(c, 11) = Sheets(c + 15).Range("F64")
dados(c, 12) = Sheets(c + 15).Range("F69")
Next c

Sheets("PAINEL").Select

i = 10
Do While i <= 46
c = 1
If Cells(i, 3) <> "" Then
For y = 16 To 53
If Cells(i, 3) = Right(Sheets(y).Range("B11"), Len(Sheets(y).Range("B11")) - 9) Then
Cells(i, 5).NumberFormat = "0.00"
Cells(i, 5) = dados(c, 1)
Cells(i, 6).NumberFormat = "0.00%"
Cells(i, 6) = dados(c, 2)
Cells(i, 7).NumberFormat = "0.00%"
Cells(i, 7) = dados(c, 3)
Cells(i, 9).NumberFormat = "0.00%"
Cells(i, 9) = dados(c, 4)
Cells(i, 10).NumberFormat = "0.00%"
Cells(i, 10) = dados(c, 5)
Cells(i, 11).NumberFormat = "0.00%"
Cells(i, 11) = dados(c, 6)
Cells(i, 13).NumberFormat = "0.00%"
Cells(i, 13) = dados(c, 7)
Cells(i, 14).NumberFormat = "0.00%"
Cells(i, 14) = dados(c, 8)
Cells(i, 15).NumberFormat = "[h]:mm:ss;@"
Cells(i, 15) = dados(c, 9)
Cells(i, 17).NumberFormat = "$#,##0.00"
Cells(i, 17) = dados(c, 10)
Cells(i, 18).NumberFormat = "0.00%"
Cells(i, 18) = dados(c, 11)
Cells(i, 19).NumberFormat = "0"
Cells(i, 19) = dados(c, 12)
End If
c = c + 1
Next y
End If
i = i + 1
Loop

Porém, além de buscar esses dados eu preciso pegar de outra célula a cor da letra, só que tem a linha e a coluna certa para pegar e a linha e coluna certa para colocar...eu não faço idéia de como fazer isso, além de tudo isso são em sheets diferentes!
Me ajudem!!!rs

Beijosss