I am a new vba user and I am having trouble with a type 13 error on a loop. 
I currently have two workbooks. One with around 19 sheets that I want to copy data from, and the other workbook where I want to paste all the data which will feed into my pivot tables. Is this method even the best way to go about this?

```
Private Sub Update_Click()
Dim COOupdate As Workbook
Dim ws As Worksheet
Dim nrow As Long
Dim destrange As Range

Set COOupdate = Workbooks.Open("file path & file name")
Set ws = ActiveSheet
nrow = 2
Set destrange = ThisWorkbook.Worksheets(5).Range("b" & nrow)

COOupdate.Activate

For Each ws In ActiveWorkbook.Worksheets
    If ActiveSheet.Name = "Data Sheet" Or "Parameters" Then
    ActiveSheet.Next.Select
Else
    ActiveSheet.Range("B5:B71,E5:E71,H5:H71,K5:K71,N5:N71,Q5:Q71").Copy 
Destination:=ThisWorkbook.Worksheets(5).Range("b" & nrow)
    ActiveSheet.Range("b2").Copy 
Destination:=ThisWorkbook.Worksheets(5).Range("a2:a68")
    nrow = nrow + destrange.Rows.Count
  ActiveSheet.Next.Select
End If
Next

ActiveWorkbook.Close
ThisWorkbook.Save

End Sub

```