We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
In adding lines 14 and 15 I'm getting this:
Sub InsertNewYearConsolidated() Dim ws As Worksheet, rw As Long Set ws = Worksheets("Consolidated") ws.Select 'Insert 12 rows above Totals and the spacer row rw = ws.Range("A:A").Find("Totals").Row ws.Rows(((rw - 1) & ":" & (rw + 10))).Insert Shift:=xlDown 'copy the format from the first 12 rows (6 to 17) ws.Range("A6:U17").Copy ws.Range("A" & (rw - 1)).Select Selection.PasteSpecial Paste:=xlPasteFormats Ws.Range(“A6:A17”).Copy Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Range("A1").Select End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|How to fix this UDF to handle blank cells?||8||44|
|Reference between list of ingredients and mixtures in Excel||4||31|
|Summing across multiple columns based on various criteria in Excel||16||35|
|Excel file size grew while there isn't any data in it.||3||22|
Join the community of 500,000 technology professionals and ask your questions.