Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.
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