Shopping list macro help - copy cell to another sheet

[JDW96]

Hi everyone!

I'm fairly new to macros and VBA - so please excuse any stupid questions - but I'm hoping you can help me out.

I'm trying to create a macro which will add selected items to a shopping list. When I click the "+" icon next to the item I want that item to be added to the shopping list on a different sheet, on the line below whatever has previously been added.

These two images should show you what I'm trying to achieve:
https://imgur.com/P0cCD3Y
https://imgur.com/NkHsVKA

If what I am asking for is an easy task for you, and you want something a little more challenging to get stuck into I have a more advanced solution, which is how I would have the sheet running in a perfect world. The add symbol would open up a pop-up which would allow me to enter in the quantity and units required. Pressing the "Add" button would transfer all of this data into the shopping list.

This is shown by the following images:
https://imgur.com/bcV4Yrq
https://imgur.com/a/oif51

I don't know if this is something which is possible, and I would be very happy if it only worked as I suggested in the more simple format, but if you could manage to create the pop-up that would be amazing.

Thank you for your time, it is greatly appreciated and I hope you are able to help.

Many thanks!

 

[oldbrewer]

shopping list

10

this is number of next blank row

tomatoes

bleach

oranges

shampoo

lemons

toothpaste

apples

macro button

lemons

pears

pears

highlight any item in list

and click on macro button

to make a macro button

I used the macro below to firstly add lemons to the shopping list

draw any shape, say a rectangle

and then add pears

highlight it

hover over the bottom right corner

Sub Macro4()

right click

'

append macro

' Macro4 Macro

' Macro recorded 09/02/2018 by bob

'

'

ActiveCell.Select

Selection.Copy

mynum = Cells(4, 16)

Cells(mynum, 14).Select

ActiveSheet.Paste

End Sub

<colgroup><col width="64" span="23" style="width:48pt"> </colgroup><tbody>
</tbody>