Hey.

I am trying to copy multiple cell entries from all worksheets (with a few exceptions) into one sheet called "MergedDataSheet".
Everything is working like a charm with the code below.

But now I would like to copy 2 additional cell entries from all worksheets (except from the ones listed in the code below).
The additional cells are:
B14 and B15.

B14 should be copied to column K, and B15 should be copied to comlumn L. Both entries should be in the same row as the name of the origins data sheet (column H).
The listing of the data sheets is working fine with the code below already. So basically, all I wish to add is those 2 cells from all worksheets into the "MergedDataSheet".

Do you guys have any ideas?

---------------------

Sub CopyRangeFromMultiWorksheets()
Dim sh As Worksheet
Dim DestSh As Worksheet
Dim last As Long
Dim CopyRng As Range

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

'Delete the sheet "MergedDataSheet" if it exist
Application.DisplayAlerts = False
On Error Resume Next
ActiveWorkbook.Worksheets("MergedDataSheet").Delete
On Error GoTo 0
Application.DisplayAlerts = True

'Add a worksheet with the name "RDBMergeSheet"
Set DestSh = ActiveWorkbook.Worksheets.Add
DestSh.Name = "MergedDataSheet"


'loop through all worksheets and copy the data to the DestSh
For Each sh In ActiveWorkbook.Worksheets
If IsError(Application.Match(sh.Name, _
Array(DestSh.Name, "Help", "Dashboard", "Dashboard (V2)", "Dashboard (V3)", "Overview", "Project (1)"), 0)) Then

'Find the last row with data on the DestSh
last = LastRow(DestSh)

'Fill in the range that you want to copy
Set CopyRng = sh.Range("A30,E30,A50,E50,A70,E70,A90,E90")

'Test if there enough rows in the DestSh to copy all the data
If last + CopyRng.Rows.Count > DestSh.Rows.Count Then
MsgBox "There are not enough rows in the Destsh"
GoTo ExitTheSub
End If

'This example copies values
CopyRng.Copy
With DestSh.Cells(last + 1, "A")
.PasteSpecial xlPasteValues
'enable row below to copy formatting as well
'.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End With

'Optional: This will copy the sheet name in the H column
DestSh.Cells(last + 1, "H").Resize(CopyRng.Rows.Count).Value = sh.Name

End If
Next

ExitTheSub:

Application.GoTo DestSh.Cells(1)

'AutoFit the column width in the DestSh sheet
DestSh.Columns.AutoFit

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub