Bom dia pessoal!
Tenho o seguinte código abaixo:

Sub Consolidar()
Sheets(1).Range("A2:S1000").Clear
plans = Sheets.Count
linha = 2

For n = 2 To plans
lin = 7 
Do Until Sheets(n).Cells(lin, 1) = 0

Sheets(1).Cells(linha, 1) = Sheets(n).Cells(lin, 1) 
Sheets(1).Cells(linha, 2) = Sheets(n).Cells(lin, 2) 
Sheets(1).Cells(linha, 3) = Sheets(n).Cells(lin, 3)

Sheets(1).Cells(linha, 19).Font.ColorIndex = n + 1 
Sheets(1).Cells(linha, 19) = Sheets(n).Name

lin = lin + 1
linha = linha + 1

Loop
Next
End Sub

Na Linha 1 preciso que sai formatado na célula como número de porcentagem com duas casas após a vírgula. Ex: 2,50%
Na linha 2 preciso que sai formatado como data. Ex: 10/02/2017
Na linha 3 preciso que sai formatado como número Ex: 1.236,52.

Att,