help!!

[Young_Money]

Hi guys. I am using UserForm to make what I want to do right now. What the program does is it has seven buttons. I separated them by three different categories. This is how it looks like
New Orders of Last Week
*"Carrier"button*
*"Enterprise"button*

Quotes and New Opportunities
*"Carrier"button*
*"Enterprise"button*

Top Opportunities
*"Carrier"button*
*"Enterprise"button*

and the last one is just information on how to use the userform.

What I'm doing right now is when I click the Carrier button under New Order, it copies what I highlighted into the New_Orders sheet starting at 1,1. I use the same code for all the Carrier buttons, but I just change the location that I want it to be to each respective sheet i.e "Quotes_and_New Oppportunities" and "Top_Opportunities" and "New_Orders". Below is the code I have for Carrier.

Sub CommandButton1_Click()

Dim rngCopy As Range
Dim rngPaste As Range

Set rngCopy = Selection
Set rngPaste = Sheets("New_Orders").Cells(1, 1)
rngCopy.Copy rngPaste

End Sub

I am getting the copy and paste list from a different sheet called "Sheet1"
Now comes the problem. I need to make it so that when I click the Enterprise button under New Orders, it counts the number of cells that have text in Column A in the sheet New_Orders, and then pastes the highlighted cells from "Sheet1" to "New_Orders" at the next empty cell, which would be right after the Carrier list that I pasted if I clicked Carrier, and then Enterprise after.

Can anybody help me out please?

 

[VoG]

Try

Sub CommandButton1_Click()

Dim rngCopy As Range
Dim rngPaste As Range

Set rngCopy = Selection
Set rngPaste = Sheets("New_Orders").Cells(Rows.Count, 1).End(xlUp).Offset(1)
rngCopy.Copy rngPaste

End Sub

 

[Young_Money]

holy cow it works!
thanks alot!!

Just one question because I don't want to just take the code and not learn anything.

Can you please explain this line?

Set rngPaste = Sheets("New_Orders").Cells(Rows.Count, 1).End(xlUp).Offset(1)

How does Cells(Rows.Count, 1).End(xlUp).Offset(1) count the number of cells and know where to paste it? :O

Thanks again for all your help!

 

[VoG]

Cells(Rows.Count, 1).End(xlUp) gets the last filled row. Offsetting by 1 gets the first empty cell.

 

[Young_Money]

holy cow so simple
i thought id have to code like crazy
thanks!