Range different rows with loop

Question

I have a sheet where each column is for a supplier, I use a loop to get the supplier list from another sheet, that's the code:

Z = 1
Do While Not Worksheets("data").Cells(Z, 2).value = ""
Z = Z + 1
Loop

For i = 2 To Z - 1
Worksheets("Last Evaluations").Cells(17, i - 1).value = Worksheets("data").Cells(i, 3).value

So bellow each supplier I have a list of scores of the supplier:

I'd like to format every column according to the loop.

However my problem is that the titles corresponds to different rows, and the results too.

The rows for the titles are: 20, 22, 24, 26, 28, 30, 32, 34, 36 and 38

I tried this to do it:

L = 1
Do While Not Worksheets("overall").Cells(11 + L, 1).value = ""
L = L + 1
Loop

For ie = 1 To L - 1

With Worksheets("Last Evaluations").Range(ie & "20", ie & "22", ie & "24", ie & "26", ie & "28", ie & "30", ie & "32", ie & "34", ie & "36", ie & "38")
            .VerticalAlignment = xlCenter
            .HorizontalAlignment = xlCenter
            .Font.Name = "Bahnschrift"
            .Font.Size = 10
            .Font.Color = RGB(23, 61, 49)
            .Font.Bold = False
            .Interior.Color = 11586419
End With

but then it results at the error 450

How could I do it in an easier way than just copping this code for each single row?

I've been thinking at using arrays, but I didn't understand how to use it.

I used Range(cells) too, but it returns me the same error.

Sorry if it's a repeated question, I've searching for an answer, but I wasn't able to.