Bom dia!!

Seria algo como isso?

Sub AleVBA_22777()
Dim Ac As Integer, c As Long
Set Rng = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))
ReDim ray(1 To Rng.Count * 4, 1 To 4)
For Each Dn In Rng
    For Ac = 1 To 3
        If Dn.Offset(, Ac) >= 0 Then
            c = c + 1
            ray(c, 1) = Dn.Value: ray(c, 2) = Dn.Offset(, Ac): ray(c, 3) = Range("A1").Offset(, Ac)
        End If
    Next Ac
Next Dn
Range("F2").Resize(c, 3) = ray
End Sub

Att

Não como como você faz a adição de dados, mas a ideia que lhe dou é formatar os dados em forma de tabela, assim fica bem mais fácil de reorganizá-los depois.
Digo ainda que seria muito útil formatar tudo para funcionar a partir do VBA, um botao para cadastro, e outro para adição de valores de cada mês, o próprio programa faria a reordenação.

Boa tarde spereira

Seja bem-vinda ao Planilhando!

Como você é novata no fórum, para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Alexandre, é exatamente isso.

A única questão é que o código gera uma linha a mais, e eu não soube como corrigir.

Colaborador Data Valor
Renato Abreu 0 01/01/2014
Renato Abreu 0 01/02/2014
Renato Abreu
Pedro dos ceus 107 01/01/2014
Pedro dos ceus 143,1 01/02/2014
Pedro dos ceus
Denis arruda 01/01/2014
Denis arruda 01/02/2014
Denis arruda
Marcelo Pereira 176,2 01/01/2014
Marcelo Pereira 160,1 01/02/2014
Marcelo Pereira
Silvia arantes 200 01/01/2014
Silvia arantes 150 01/02/2014
Silvia arantes

Para todo o colaborador a macro gera uma linha em branco. Como corrigir?

Se não for pedir muito, você pode comentar o código pra eu entender?

Grata.