Entrada de texto e mudança de largura de coluna para várias células e colunas, respectivamente, de uma só vez

Question

Eu quero saber o encurtar o código para inserir vários textos para as células e reduzir a largura da coluna de uma só vez. Então, existe uma maneira de fazer isso.

Columns("A:A").ColumnWidth = 2
Columns("B:B").ColumnWidth = 10
Columns("C:C").ColumnWidth = 10
Columns("D:D").ColumnWidth = 15
Columns("E:E").ColumnWidth = 10
Columns("F:F").ColumnWidth = 10

e por isso:

Range("A2").Value = "first name"
Range("A3").Value = "surname"
Range("B2").Value = "Level"
Range("C2").Value = "Score"
Range("C3").Value = "in percentage"
Range("D2").Value = "Status"
Range("D3").Value = "pass/fail"
Range("E2").Value = "Rank"
Range("F2").Value = "Remarks"

Existe uma maneira de resolver isso em uma única linha, em vez de fazê-lo para cada linha, uma de cada vez? Ou esta é a única maneira?

Estou esperando algo como:

Range("E2,E3,F2,......").Value = "........."
Columns("A:A,B:B,C:C.....").ColumnWidth = 10

Mas sei que o acima não funciona. Se há um caminho mais curto, então eu estou pronto para isso. Se não, isso também é simples. É só muito tempo.

* P.S. Eu encontrei essas referências, mas elas não são realmente o que eu esperava.

1. Separe o conteúdo da célula depois de "-" para várias colunas de uma só vez

2. Defina a largura da coluna múltipla no Excel *