Hi
I would like to copy from multiple sheets to one "summary".
I would like to copy sheet “store1”, “store2”, and “store2” to my sheet“overview”. So we can have a complete overview for the sheets.
My code is below...but its pasting the values to the right? I want it to paste i down.
Does any know how? It would a great help for me.
Sub ()
Dim ws As Worksheet
Dim j As Integer, col As Integer
Application.ScreenUpdating = False
Sheets("Summary").Activate
For Each ws In Worksheets
If ws.Name <> "Summary" Then
ws.Range("A1:E6").Copy
col = Worksheets("Summary").Range("IV1").End(xlToLeft).Column + 1
Worksheets("Summary").Cells(1, col).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End If
Next ws
Columns(1).Delete
Range("A1").Activate
Application.ScreenUpdating = True
End Sub
Bookmarks