Excel Organizar tabela com macro

[Adunga13]

Boa noite pessoal,

 

Preciso de uma ajuda com relação a organização de uma base de dados extraída de um programa de controle. Preciso de uma macro para copiar os dados da célula B2 para o intervalo K3:K9 e assim sucessivamente nos outros intervalos.

A base tem mais de 10.000 linhas e para fazer isto manualmente além do trabalho preciso atualizar mensalmente.

 

Teria como me ajudar?

 

Anexo planilha modelo.

Obrigado a todos.

Modelo.xlsx

[OreiaG]

Veja se atende.

Sub CopiaCola()
 Dim rA As Range
  Application.ScreenUpdating = False
  For Each rA In ActiveSheet.Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(xlConstants, xlTextValues).Areas
   rA.Cells(1, 1).Copy rA.Offset(1, 9).Resize(rA.Rows.Count)
  Next rA
End Sub

 

[Adunga13]

@OreiaG Boa noite,

Top, isto mesmo!!!! muitíssimo obrigado.