# Combining Worksheets on one sheet with Paste Special

#### Brooke29

##### New Member
I found the below code on the internet, works great with one minor problem, I need to paste values since my origination data is all formulas. Any help would be appreciated.

Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A12").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A12")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A12").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 12).Resize(Selection.Rows.Count - 20).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub

### Excel Facts

VLOOKUP to Left?
Use =VLOOKUP(A2,CHOOSE({1,2},\$Z\$1:\$Z\$99,\$Y\$1:\$Y\$99),2,False) to lookup Y values to left of Z values.

#### MattH1

##### Board Regular
Hey Brooke and welcome to the forums. Please do try to use the CODE tags (looks like a # in the toolbar above where you type.)

Let me know if this helps.

Code:
`````` Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A12").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A12")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A12").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 12).Resize(Selection.Rows.Count - 20).Copy
Sheets(1).Range("A65536").End(xlUp).Paste xlPasteValues
Next
End Sub``````

Last edited:

#### Brooke29

##### New Member
Perfect, thanks so much!

Replies
1
Views
139
Replies
3
Views
452
Replies
5
Views
85
Replies
6
Views
199
Replies
2
Views
94

Threads
1,191,131
Messages
5,984,845
Members
439,918
Latest member
engrnoir

### We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

### Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

### Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

### Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

### Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back