VBA copy cell data to next empty cell in range

[MeaclH]

Hi all,

I want to run a macro that copies the data in a selected cell, and enters it in the next available cell further down the sheet. If the first cell in the range has data, it will enter it in the next cell below, stacking the data from multiple cells.

For example the first data would be entered in E60, then E61 etc etc

Cheers
Hayden

 

[MeaclH]

Yes, change last line to this.

ws.Cells(lastRow, activeCell.Column).Value = activeCell.Value

dude thats awesome. thanks heaps