Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
Sub Combine() ' Dim NumSheets As Integer Dim NumRows As Integer ' Change the value of NumSheets to equal the number of sheets you wish to combine NumSheets = 10 ' Change the value of NumRows to equal the number of rows in each sheet NumRows = 500 Worksheets(12).Select Sheets.Add ActiveSheet.Name = "Consolidated" For X = 1 To NumSheets Worksheets(X + 1).Select Rows("2:" & NumRows).Select Selection.Copy Worksheets("Consolidated").Select ActiveSheet.Paste Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select Worksheets(X + 2).Select Range("A1").Select Next X Worksheets("Consolidated").Select Range("A1").Select End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!