VBA CODE - SEARCH AND COPY

[NeelsBor]

Hi - I'm new and need help.
I'm looking for vba macro that will go to a column (say column B),
look for the last cell with data in that column,
then search the column for cell's with no data in it and,
copy the data in the cell above the empty cell into the empty cell?

I hope this makes sens and some can help me.

Thanks
Neels Borstlap

[lotuxel]

Plz try this[Code]Sub copy_last()With ActiveSheet mylastcol = _ .Cells.Find("*", after:=.Cells(1), _ LookIn:=xlFormulas, lookat:=xlWhole, _ searchdirection:=xlPrevious, _ searchorder:=xlByColumns).Column .Cells(1, mylastcol + 1) = .Cells(Rows.Count, "B").End(xlUp).Value End With End Sub[Code]

[NeelsBor]

Hi Lotuxel

Thanks for the help.
Sorry but I'm new to this stuff.
If I paste you code in a module is give me all kinds of errors.
Can you help again.
I think it is because the code is in one line and I do not now how to split it.

Thanks
Neels

[lotuxel]

Plz try this[code]Sub copy_last()With ActiveSheet mylastcol = _ .Cells.Find("*", after:=.Cells(1), _ LookIn:=xlFormulas, lookat:=xlWhole, _ searchdirection:=xlPrevious, _ searchorder:=xlByColumns).Column .Cells(1, mylastcol + 1) = .Cells(Rows.Count, "B&quot.End(xlUp).Value End With End Sub[code]

[Teeroy]

The forum seems to be acting strangely and not parsing Tags. This is a cross post from http://www.mrexcel.com/forum/excel-q...pty-cells.html however and you should identify it as such.

[Kenneth Hobs]

As I posted at MrExcel since this forum is not formatting text in tags properly.

[lotuxel]

I'm sorry, why my Reply post's toolbar can not use "VBA" ([code][code]) icon ?

[Kenneth Hobs]

Because the forum software was upgraded. You should now just use Code tags.

MsgBox "test"

[lotuxel]

Dear Kenneth,
Thanks for the advised.
Let try now.

Hi Neelsbor,

Sub copy_last()
With ActiveSheet
    mylastcol = .Cells.Find("*", after:=.Cells(1), _
    LookIn:=xlFormulas, lookat:=xlWhole, _
    searchdirection:=xlPrevious, _
    searchorder:=xlByColumns).Column

   .Cells(1, mylastcol + 1) = .Cells(Rows.Count, "B").End(xlUp).Value
  End With
 End Sub