Uma família de softwares de planilhas da Microsoft com ferramentas para analisar, criar gráficos e comunicar dados.
Você poderia adaptar o código abaixo à tua necessidade....
Este código move o conteúdo para a próxima célula vazia.... você fazendo a adptação necessária ....
Sub Movimenta()
' Move para a próxima célula vazia.
Dim i As Integer
ActiveSheet.Range("b12").Select
For i = 1 To 1000
If ActiveCell.Value = "" Then
Exit Sub
Else
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
End If
Next
End Sub
Veja se te ajuda...
Roberto C. Bilio