Adding Selected cells to the bottom of an existing list

[JamesGilchrist]

Hi All,

Can someone help with a little macro that will Copy all the selected cells in Column G, which might be for example be rows 2, 9,16 and 344, and then paste them flat in the 1st blank row of Column B?

The user will select multiple cells in Column G using 'Ctrl Left Click' then click the macro button to bulid an accumulating list in Column B.

All help is greatly appreciated.

James G

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG18Dec13
[COLOR="Navy"]Dim[/COLOR] dn [COLOR="Navy"]As[/COLOR] Range, c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Lst [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
Lst = Range("B" & Rows.Count).End(xlUp).Row + 1
c = 1
[COLOR="Navy"]If[/COLOR] Selection.Column = 7 [COLOR="Navy"]Then[/COLOR]
    [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] dn [COLOR="Navy"]In[/COLOR] Selection
        c = c + 1
        Cells(Lst, c) = dn.Value
    [COLOR="Navy"]Next[/COLOR] dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]If[/COLOR]
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick