Olá, @Jacque2024.

É possível automatizar as cópias utilizando macro.

Se for viável no seu caso e se houver interesse, então retorne. Coloque um print da planilha que tenha a identificação da coluna e das linhas que contêm os dados em preto, informe se a quantidade de cópias é fixa, e caso seja variável informe como você pretende informar a quantidade em cada caso. Informe também se a quantidade de linhas e de colunas dos dados em preto pode variar.

@osvaldomp Bom dia, desde já agradeço pela ajuda

A quantidade os dados em pretos nunca se repetem e podem variar.

Faltou você informar sobre  quantidade de cópias a serem feitas.

@osvaldomp depende, porque varia o numero de alunos em uma sala

Ok, então o código abaixo irá exibir na tela uma InputBox para que você coloque nela manualmente a quantidade de cópias.

No entanto, se a quantidade de alunos que você citou acima, puder ser obtida pelo código de outra forma, por exemplo pela contagem dos nomes na coluna Aluno (coluna A), então podemos ajustar o código e a InputBox não será necessária.

Segue um passo a passo para a instalação e para a execução do código abaixo, desconsidere caso você já domine.

INSTALAÇÃO DO CÓDIGO

1. copie o código daqui

2. abra o arquivo Excel e mantenha a planilha de interesse como sendo a planilha ativa (planilha ativa é a planilha que estiver selecionada, caso haja outras no mesmo arquivo)

3. aperte Alt+F11 para acessar o editor de VBA | no menu clique em Inserir | Módulo (senão houver nenhum então será inserido o Módulo1, que é o quadro vazio agora exibido à direita

4. cole ali o código antes copiado | clique no X para fechar o editor e retornar para a planilha de interesse

OPÇÕES PARA EXECUTAR O CÓDIGO (as opções abaixo podem ser instaladas isoladas ou juntas)

1. via Botão ou qualquer figura de sua escolha a ser desenhada manualmente por você na planilha de interesse. Para inserir um Botão: no menu Desenvolvedor | Inserir | Controle de Formulário | Botão | desenhe o botão na planilha e vincule-o à macro ReplicaDados

2. via atalho de teclado: a partir da planilha aperte Alt+F8 | selecione ReplicaDados | Opções | coloque uma tecla como atalho, por exemplo w | a parir daí o código poderá ser executado apertando-se Ctrl+w

Sub ReplicaDados()
 Dim k As Long, x As Long
  k = Cells(Rows.Count, 1).End(3).Row
  x = Application.InputBox("QUANTAS CÓPIAS?", Type:=1)
  If x = 0 Then Exit Sub
  Cells(2, 1).Resize(k - 1, 3).Copy Cells(k + 1, 1).Resize((k - 1) * x)
End Sub

Retorne se o resultado não for o desejado ou se precisar de ajustes/alterações.