I have a macro that's basically taking multiple sheets and consolidating them into a summary sheet.
Sub Summary()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If InStr(ws.Name, "Fcst") > 0 Then
ws.Range("FcstArea").Copy Sheets("Summary").Cells(Rows.Count, 1).End(xlUp)(2)
End If
Next ws
It works perfectly fine except it pastes the data "as it" as opposed to paste value. Normally I would use:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
except there isn't actually a paste function within the code. I'm pretty novice and I found the basic structure of the code online so I'm not 100% sure how it works.
Is there anyway to do a paste special without changing the existing code too much? Thanks!!