This is what I have so far just recording a macro. Two things: It doesn't paste into the next open row and I have to repeat the process for each individual sheet. I have about 50 sheets that need to be recalculated each day. I am hoping someone can help me with a macro that loops for all sheets.
Sub Pract1()
'
' Pract1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+P
'
Columns("A:E").Select
Selection.Copy
Sheets("Calculations").Select
Columns("A:E").Select
ActiveSheet.Paste
Range("I1:Q1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("summary").Select
Range("B2:J2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Bookmarks