Informacion de una celda a parte de una columna

Quieres decir, que busque la primera celda vacía, en D, ¿y de ahí en adelante hasta la que no está vacía y que rellene hacia arriba?...
-
Tendrá que ser con una Macro. ¿Te parece?
-

si es eso lo que nececito y una macro si me serviria mucho gracias

?Sub RellenarHaciaArriba()
Dim CELDA As Range
Dim INICIO As Integer
Dim FIN As Integer
Dim RANGO As String
For Each CELDA In Range("D:D")
If INICIO = 0 Then
If CELDA.Value = "" Then INICIO = CELDA.Row
Else
If CELDA.Value = "FIN" Then Exit For
If Not CELDA.Value = "" Then
FIN = CELDA.Row
CELDA.Copy
RANGO = "D" & INICIO & ":" & "D" & FIN
Range(RANGO).Select
ActiveSheet.Paste
INICIO = 0
End If
End If
Next CELDA
Range("A1").Activate
Application.CutCopyMode = False
End Sub
Xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Este es el código, como debe ser.
-
Sub RellenarHaciaArriba()
Dim CELDA As Range
Dim INICIO As Integer
Dim FIN As Integer
Dim RANGO As String
For Each CELDA In Range("D:D")
   If INICIO = 0 Then
      If CELDA.Value = "" Then INICIO = CELDA.Row
   Else
      If CELDA.Value = "FIN" Then Exit For
      If Not CELDA.Value = "" Then
         FIN = CELDA.Row
         CELDA.Copy
         RANGO = "D" & INICIO & ":" & "D" & FIN
         Range(RANGO).Select
         ActiveSheet.Paste
         INICIO = 0
      End If
   End If
Next CELDA
Range("A1").Activate
Application.CutCopyMode = False
End Sub
-
Xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
<div id="_mcePaste" style="position: absolute; left: -10000px; top: 110px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;"></div>