Excel - Macro para distribuir uma coluna (A) em várias colunas

A pedido do meu irmão, criei uma macro para o Excel (VBA).

Essa macro pergunta quantas linhas quer deixar por coluna, e divide a coluna A em quantas colunas forem necessárias para atingir o desejado. As colunas B em diante deverão estar VAZIAS, ou o conteúdo será automaticamente sobrescrito após a execução da macro!

Exemplo. Se a coluna A estiver com 1000 linhas (A1 até A1000) e você escolher que cada coluna deverá ter 10 linhas, ele irá dividir as 1000 linhas da coluna A em 100 colunas, ficando: A1 a A10  depois B1 a B10 e assim por diante.

Podem copiar, mas por favor, mantenham os créditos.

Basta colar essa macro abaixo em um módulo do VBA do  Excel.
Para gerar um módulo, basta gravar uma macro qualquer.

Sub Dividir_Coluna()
    '''' CRÉDITOS '''''''''''''''''''''''''
    '''' Autor: Sergio Abreu
    '''' Data: 25/4/2013
    '''' http://sites.sitesbr.net
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   
    Dim lim&, curr&, addr$, ncol$
   
    curr = 1
   
    s = InputBox("Digite quantas linhas deve ter cada coluna:", "Configuração", "20")
   
    If (s <> "") Then
   
        lim = Val(s)
   
        While Range("A" & lim).Value <> ""
       
            addr = "A" & lim & ":A" & (2 * lim)
            Range(addr).Select
            Selection.Cut
            ncol = Mid(ActiveCell.Cells(0, ActiveCell.Column + curr).Address, 2, 1)
            Range(ncol & "1").Select
            ActiveSheet.Paste
            Range(addr).Select
            Selection.EntireRow.Delete
            curr = curr + 1
            DoEvents
       
        Wend
   
    End If
    
End Sub

O ouro vermelho

Preciso mesmo acrescentar alguma coisa sobre esse assunto ? O tomate é a piada do momento nas redes sociais.

Tudo bem, é isso o que tenho a dizer:

-Socorro! O tomate está caro demais.

Para quem tem algum pedaço de terra em casa, uma boa opção é começar a plantá-lo!

Mas não é só o tomate que está pela hora da morte.

Feijão a R$ 5,00 o quilo,
leite a R$ 2,50 o litro,
ovos a mais de R$ 5,00 a dúzia e
pãozinho francês a até R$ 7,00 o Kg

devem reduzir o número de obesos no país a médio prazo.

E a presidenta e sua equipe ainda dizem que não existe inflação no país... Também, com salários de mais de 26 mil reais por mês fica fácil comprar esses itens sem ter que se preocupar tanto.

Para você, o ano está voando?

Já ouvi falar sobre o poder do pensamento e das palavras.

Quando o assunto é tempo, tudo é muito relativo.
Quando fazemos algo agradável, o tempo passa voando mesmo. Mas quando a tarefa é enfadonha, parece que o tempo se arrasta.

Já repararam como o minuto de aquecimento da refeição no forno de microondas parece demorar como como se fosse 5 minutos?

Acho que ficar afirmando que o ano está voando, nos faz sentir que estamos aproveitando menos o tempo, na verdade o tempo é fixo, nunca é lento ou rápido, tudo está na nossa percepção.