"Its working now. Don't know how"
the paste special in bracket was wrong, hence I asked you to change it
I am assuming you have a header in row 1
Option Explicit
Sub copy_dataupdate()
Application.ScreenUpdating = 0
Dim ws As Worksheet, ms As Worksheet, NR&
Dim j As Long, lrow As Long
Set ms = Worksheets("Summary")
ms.Range("A2:E" & Rows.Count).ClearContents
For Each ws In ThisWorkbook.Worksheets
With ws
If .Name <> ms.Name Then
.Range("A5:AC390").Copy
NR = ms.Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
ms.Range("A" & NR).PasteSpecial xlValues
End If
End With
Next ws
ms.Columns(1).Delete
Set ms = Nothing
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Bookmarks