Option Explicit
Sub Copy2ndRow()
Dim ws As Worksheet, nr As Long
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "MTD" Then
nr = Sheets("MTD").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
ws.Rows(2).Copy Sheets("MTD").Rows(nr)
End If
Next ws
End Sub

Hello -
My goal is to copy A2:P2 from 31 daily sheets to MTD sheet and sum all columns.... the code above does everything I need except formatting - I would like to paste values only but keep getting an error when I try to add the code below

.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

also would like to have this run whenever the workbook is closed

Thank you in advance



Brian

HI,

Did you ever receive help on this?
Also you mentioned an "Error" what was the "Error"?