A caixa de nome pode ser sua melhor aposta aqui - é a caixa na parte superior esquerda da sua planilha, entre os cabeçalhos da coluna e a faixa de opções, que mostra o endereço da célula ativo no momento:
Cliqueaquiesubstitua"A1" por "A1: A92" e pressione enter. Isto irá selecionar as linhas apropriadas. Em seguida, sem clicar em nenhum outro lugar, digite a medida desejada e pressione Ctrl + Enter. O valor será colocado em todas as células de destaque. Você pode repetir isso para quantos conjuntos precisar.
A próxima opção seria esta macro:
Sub InsertCount()
Dim varInsert As Variant
Dim lngCount As Long
Dim rngInsert As Range
varInsert = InputBox("What value do you want to repeat?")
lngCount = InputBox("How many times?")
If Len(varInsert) > 0 And _
lngCount > 0 Then
If Range("A" & Rows.Count).End(xlUp).Row = 1 Then
Set rngInsert = Range("A1", "A" & lngCount)
Else
Set rngInsert = Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Resize(lngCount, 1)
End If
rngInsert.Value = varInsert
End If
End Sub
Ele perguntará qual valor você deseja inserir, quantas vezes inseri-lo, depois colocará esse valor na primeira linha livre da coluna A e repetirá quantas vezes for necessário.