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!
Sub PostProcessing() Dim MainWorksheet As Worksheet ' Make sure your worksheet name matches! Set MainWorksheet = ActiveWorkbook.Worksheets("Have") Dim DataRange As Range Dim lastRow As Long Set DataRange = MainWorksheet.UsedRange ' Now that you have the data in DataRange you can process it. mainworksheet.range("A1:J1").Font.Bold = True mainworksheet.range("A1:J1").Interior.ColorIndex = 15 With MainWorksheet .Rows(1).Insert With .Rows(2) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With .Range("B1:J1") .Merge .HorizontalAlignment = xlCenter .Font.Bold = True .FormulaR1C1 = "Test Execution Sprint View" .Font.Name = "Arial" .Font.Size = 12 End With .[a2] = "Cycles" lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 .Cells(lastRow, 1) = "Release Grand Total" .Cells(lastRow, 2).Resize(1, 9).FormulaR1C1 = "=sum(R3C:R[-1]C)" With .Cells(lastRow, 1).Resize(1, 10).Interior .Pattern = xlSolid .ColorIndex = 37 End With End With End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.