Copy and Paste to another sheet on an empty cell

[cantab429]

hi guys, new to the forum.... im trying to code up in VBA but stuck at the moment hoping to find answers...

basically i have this worksheet tab call "Fruits", with a column header starting at cell A4 call "Fruit Types", and subsequently A5, A6 onwards have different names of fruits. Basically I want to create a command where I can simply press "ctrl+x" and it will automatically copy and paste the fruit name (say my cursor is on A5) to column B at another worksheet name "Order".

This would have been straight forward but I need to paste the Fruit name to the next empty cell; say cell B1 is "Fruit" (the header), B2 is Apple, B3 is Pears, then it will need to automatically paste the information to B4. I am struggling with how I can locate an empty cell and paste it onto that cell.

Much appreciated for any help! Thanks in advance!

 

[MARK858]

Sub CopyIt()
Selection.Copy Worksheets("Order").Range("B" & Rows.Count).End(xlUp)(2)
End Sub

Then go into Macro on the developer tab (or press Alt+F8), click on your macro name, click options and assign your shortcut there

 

[cantab429]

Then go into Macro on the developer tab (or press Alt+F8), click on your macro name, click options and assign your shortcut there

wow thanks that works brilliantly! didnt know it was that simple!

 

[MARK858]

wow thanks that works brilliantly! didnt know it was that simple!

Happy it helped and welcome to the forum.