This assumes that the Budget Row exists in the target worksheet (Sheet2)
Option Explicit
Sub Test()
Dim wsS As Worksheet
Dim wsT As Worksheet
Dim Tgt As Range
Dim Rng As Range, R1 As Range, R2 As Range
Dim Tot As Range
Dim Rw As Long, Cel As Range
Set wsS = Sheets("Sheet1")
Set wsT = Sheets("Sheet2")
With wsSs
Set R1 = .Columns(1).Find("Start").Offset(1)
Set R2 = .Cells(Rows.Count, 1).End(xlUp)
End With
Set Rng = Range(R1, R2).Resize(, 20)
Set Tgt = wsT.Cells(Rows.Count, 1).End(xlUp)(2)
Rng.Copy Tgt
Rw = Tgt(0).Row
Set R1 = Tgt.Offset(1)
Set R2 = wsT.Cells(Rows.Count, 1).End(xlUp)(2)
Set Rng = Range(R1, R2).Resize(, 20)
Set Tot = Rng.Columns(5).SpecialCells(xlCellTypeBlanks)
For Each Cel In Tot.Cells
Cel.Value = Cel(0) & " Total"
Cel.Offset(, 3).Resize(, 13).FormulaR1C1 = "=SUBTOTAL(9," & "R" & Rw & "C:RC)"
With Cel.Offset(, -4).Resize(, 20)
.Font.Bold = True
.Interior.Color = 13434879
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
End With
Next Cel
End Sub