Troubleshooting:Copy contents of multiple worksheets into one worksheet Error

Copy contents of multiple worksheets into one worksheet

Hello, everybody -- What is the best way to copy the contents of each worksheet of a workbook into one single worksheet?  Each worksheet is formatted the same, with 3 columns; the worksheets vary only in the number of rows each one has.  I just need them
appended, one by one, onto one single sheet. 
Any guidance would be tremendously helpful.
Thank you,
-Lynne

Keys to the Problem Copy contents of multiple worksheets into one worksheet

Download Error Fixer for Free Now

LynneV,
Amended code below:
 
Sub CopyingAllSheetsIntoOne()
    Dim WSheet As Worksheet
    Dim TargetCellNext As Range
    Dim x As Integer
    Dim LastRow As Long
'=====
'Set up the target cell on "TEST 1" tab:
'=====
    Set TargetCellNext = ActiveWorkbook.Worksheets("TEST 1").Range("A2")
    'x = 1
'=====
'Loop through worksheets (10 sheets for testing; 10th sheet is "TEST 1",
'which is to hold all the pasted rows):
'=====
        For Each WSheet In ActiveWorkbook.Worksheets
'=====
'Don't copy last sheet "TEST 1":
'=====
            If WSheet.Name = "TEST 1" Then Exit For
'=====
'Copy the CurrentRegion of each source sheet onto TargetCellNext, which
'is in the target sheet "TEST 1":
'=====
            WSheet.Range("A2").CurrentRegion.copy TargetCellNext
'=====
'Determine last row of "TEST 1" to get ready for the next loop,
'=====
            With ActiveWorkbook.Worksheets("TEST 1")
                LastRow = Cells.Find(What:="*", After:=[A1], _
                    SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
'=====
'Assign TargetCellNext to one after this last row of "TEST 1":
'=====
                Set TargetCellNext = Cells(LastRow + 1, 1)
            End With
        Next WSheet
End Sub
___________
Regards, Tom

Windows Restore - Totally Fix All Errors including Copy contents of multiple worksheets into one worksheet

• Click on the Start button on the Taskbar.
• Type "System Restore" (without quotes) in the Search box and hit Enter or,
• Click on System Restore (when you see System Restore pop up  in the list of search results).
• Make sure the "Recommended restore" radio button is checked on the restore utility window.
• Click on Next and follow the instructions given.

Note: There is the option on the restore utility to select "Choose a different restore point". Unless you have a specific reason to select a different date and time than what Windows recommends, just select the recommended option stated in the steps above. If you choose to select another one, follow these steps:

Click on that desired date and time, and Windows 7 will perform a scan for any affected programs in that restore point.

Once completed, click Next and follow the instructions given.

Once you have selected the restore point, your system will start the restoring process, after which you will have to restart the system.

Recommended Method to Fix the Problem: Copy contents of multiple worksheets into one worksheet:

How to Fix Copy contents of multiple worksheets into one worksheet with SmartPCFixer?

1. Download SmartPCFixer. Install it on your system.

2. After the scan is finished, you can see the errors and problems which need to be fixed.

3. When the Fixing part is done, your computer has been speeded up and the errors have been removed

Related: How Can You Update & Download NVidia 6100, 6800 GS/XT Display Driver v.260.89 WHQL,Where to Download NVidia GeForce 8800 GT WHQL-certified driver v.196.21,How to Update & Download NVidia GeForce Go 7400 Display Driver v.260.19.12,[Solved] Download NVidia GeForce GTX 460M Driver v.331.82,Download NVidia Quadro Plex Model IV VGA Driver v.304.43 Certified,Way to Download RealTek RTL8100C(L) Driver v.5.01,Way to Download RealTek RTL8100E Drivers v.694,Way to Update & Download RealTek RTL8101L Auto Installation Program v.6.110 driver,Method to Update & Download RealTek RTL8111G PXE and RPL ROM code v.2.58 driver,How to Update & Download RealTek RTL8411B(N) Driver v.10.003,Best Way to Update & Download ASUS A53SV nVidia Graphics Driver v.8.17.12.6686,Method to Herunterladen ASUS K75VJ Intel Rapid Storage Technology Treiber v.11.6.0.1030,How Can You Update & Download ASUS CG8580 Intel Chipset Driver v.9.3.0.1019,Method to Update & Download ASUS K41VD Intel INF Update Driver v.9.1.1.1015,Way to Update & Download ASUS Pro70T NB Probe v.3.0.0026 driver
Read More: Troubleshoot:Convert a column of numbers into Alphabet characters Error,Troubleshoot:Converting data from one row to one column,Troubleshoot:Connection to your access point, router or cable modem and the internet is broken Error,Copying data currently goes into multiple cells when I want it in one cell [Solved],How Can You Fix - copy values based on text not cell position?,Closing Internet Explorer causes error,Compare 2 Tables and Calculate the PROFIT Faster,Computer goes to Windows Boot Manager after Start,Connect to one of my network computer remotely when don't allow exception box Marked,computer locking up randomly