Excel 2010: Copying Data from One Worksheet Into Another Worksheet Macro Function

Hi Experts -

     Hoping someone out there as a macro for this.  This is what I am needing, if at all possible:

1.)  I have 3 spreadsheets.  1 master (Spreadsheet A) were all data is entered into.  Spreadsheet B.  Spreadsheet C.
2.)  I'd like to create a 'Cut' function button in both spreadsheets Spreadsheet B and Spreadsheet C that cuts that data from those
      spreadsheets and pastes (or appends them) into the master spreadsheet based off the last line that is empty in the master.
3.)  Because the function is cutting the data, there should be no data left Spreadsheet B or Spreadsheet C once the macro button is

     Many thanks in advance for any help, suggestions or guidance you guys can provide with this.
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Have you tried to record a macro to do some of the pieces? That's a good way to get the majority of the code written for you. You should create it in master and make sure that the other workbooks are open.  If needed, the macro could be expanded to open those workbooks if they're not open.
You'll also need a way to get to the last line of master.  One way to do that (and record it) is to Edit | Go To..., then select [Special...] then pick "Last Cell"
Is that enough to get you started, or do you need more help?
itsmevicAuthor Commented:
Interesting, I will give that a try rspahitz.  I'll let you know how it turns out.
Martin LissOlder than dirtCommented:
But a Excel command button on sheets B and C and assign this macro to each one.

Sub CutData()
Dim lngLastRow As Long
Dim lngRow As Long

With Sheets("A")
    lngLastRow = .UsedRange.Rows.Count
    If lngLastRow > 1 Then
        lngLastRow = lngLastRow + 1
    End If
    ActiveSheet.UsedRange.Cut Destination:=.Cells(lngLastRow, 1)
End With
End Sub

Open in new window

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
itsmevicAuthor Commented:
Thanks, Martin, I will try your solution too!  Thank you greatly for your input.
Martin LissOlder than dirtCommented:
This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Excel

From novice to tech pro — start learning today.