Macro to add defined text to the end of multiple defined columns of data

**spikedog** · 06-27-2012, 12:56 PM

Hello everyone,

So seems as soon as you solve one issue another pops up, this is different to my previous solved issue so I have started a different thread, hopefully this is OK.

So I have a sheet that pulls data from another source, and enters it into columns. The amount of data can vary however the number and locations of the columns will always be a known factor. What I would like to do is have a macro that will run and add two lines of data at the end of each of a defined column in the first two blank cells. So for example:

Please Login or Register  to view this content.

Magic button push!

Please Login or Register  to view this content.

The data that needs to be entered at the end of each column is always going to be the same and so can be hard coded just like the columns of data that are always know.

Hopefully this make sense but please do ask if I need to clear anything up. Thank you in advance once again for anyone able to help.

**StevenM** · 06-27-2012, 04:09 PM

Copy code to a standard module.
Change: Const sColumns = "A,B,C,G" as needed
(these are the letter for the columns)
Run: Add2BottomOfColumns

Please Login or Register  to view this content.

**spikedog** · 06-28-2012, 04:50 AM

Outstanding, that works like a charm. Thank you so much Steven.

This forum really should have a thanks button or some way of giving extra kudos to people that help!