Excel Loop para preencher células

[Jeff_Sandes]

estou desenvolvendo uma macro vba que preenche as células com textos, define a fonte e o alinhamento, porém são muitas células e não quero escrever várias vezes os mesmos comandos, segue o comando abaixo 

Range("C4") = " CIMENTO "
Range("C4").Font.Size = 11
Range("C4").Font.Name = "Calibri"
Range("C4").VerticalAlignment = xlVAlignCenter
Range("C4").HorizontalAlignment = xlHAlignCenter

Se eu for preencher a planilha com essa mesma sequência vou perder muito tempo reescrevendo esses mesmos comandos várias vezes.

Há uma forma de fazer essa mesma função sem ter que reescrever os mesmos comandos, como uma array contendo todos os textos e outra contendo todas as células e depois relaciona cada texto com sua respectiva célula, inserindo cada texto em seu devido lugar?

[Wendell Menezes]

Algo mais ou menos assim?

 

Sub Arrays()

Dim aTexts     As Variant
Dim aCells      As Variant
Dim i                 As Integer

aTexts = Array("Cimento", "Madeira", "Pedra")
aCells = Array("A1", "B1", "C1")

For i = 0 To UBound(aTexts)
    Range(aCells(i)) = aTexts(i)
Next

End Sub

 

[Jeff_Sandes]

@Wendell Menezes  funcionou para os textos, mas como seria para os alinhamentos e fontes? Dá pra encaixar dentro do loop?

@Wendell Menezes Consegui resolver, basta colocar os parâmetros.