Update data in one sheet with a button based on another workseet

[nondigital]

I have a worksheet COSTING in which data must be updated from another INPUT sheet every week. I need to have an UPDATE button on top of COSTING sheet so that upon clicking, it can pick data from the INPUT sheet.
COSTING sheet has subsets with subtotal on top of each subset. It looks like this:

Element	Description	Actual	Committed	Total
PC	Main Costs	1984	196	2180
PC-01	Equipments	342	43	385
PC-02	Services	543	54	597
PC-03	Commercial	223	22	245
PC-04	Financial	876	77	953
OH	Overheads	99	99	198
OH-1	Management	56	67	123
OH-2	Admin	43	0	43
OH-3	Selling	0	32	32

<tbody>
</tbody>

the second sheet has the variable date which has same Element number. But there are blank rows and columns in between as it is coming from another program (SAP) It looks like this:

S.No.	Blank	Element	Nature	Description	Actual	Committed	Total
2		PC-01	a	Equipments	342	43	385
Blank
3		PC-02	a	Services	543	54	597
Blank
4		PC-03	a	Commercial	223	22	245
Blank
5		PC-04	a	Financial	876	77	953
Blank
7		OH-1	b	Management	56	67	123
Blank
8		OH-2	b	Admin	43	0	43
Blank
9		OH-3	b	Selling	0	32	32

<tbody>
</tbody>

<tbody>
</tbody>

 

[Fluff]

Hi & welcome to the board.
Should the Costings sheet be overwritten every time, or added to?

 

[nondigital]

Thank you.
Yes. COSTING sheet should be overwritten every time as the second input sheet always has cumulative value.

 

[Fluff]

In that case give this a go

Sub nondigital()

    Dim InptSht As Worksheet
    Dim CstSht As Worksheet
    Dim PcRws As Long
    Dim OhRws As Long
    Dim UsdRws As Long

Application.ScreenUpdating = False
    Set InptSht = Worksheets("INPUT")
    Set CstSht = Worksheets("COSTINGS")
    
    InptSht.Activate
    UsdRws = Range("C" & Rows.Count).End(xlUp).Row
    PcRws = WorksheetFunction.CountIf(Columns(3), "PC*")
    OhRws = WorksheetFunction.CountIf(Columns(3), "OH*")

    With CstSht
        .Rows(2).Font.ColorIndex = 3
        .Range("A2").Value = "PC"
        .Range("B2").Value = "Main Costs"
        .Range("C2").FormulaR1C1 = "=sum(r[1]c:r[" & PcRws & "]c)"
        .Range("D2").FormulaR1C1 = "=sum(r[1]c:r[" & PcRws & "]c)"
        .Range("E2").FormulaR1C1 = "=sum(r[1]c:r[" & PcRws & "]c)"
    End With
    
    Range("A:B,D:D").EntireColumn.Hidden = True
    Cells.AutoFilter Field:=3, Criteria1:="=PC*", Operator:=xlAnd
    Range("A2:H" & UsdRws).SpecialCells(xlCellTypeVisible).Copy CstSht.Range("A3")

    With CstSht
        .Rows(PcRws + 3).Font.ColorIndex = 3
        .Range("A" & PcRws + 3).Value = "OH"
        .Range("B" & PcRws + 3).Value = "Overheads"
        .Range("C" & PcRws + 3).FormulaR1C1 = "=sum(r[1]c:r[" & OhRws & "]c)"
        .Range("D" & PcRws + 3).FormulaR1C1 = "=sum(r[1]c:r[" & OhRws & "]c)"
        .Range("E" & PcRws + 3).FormulaR1C1 = "=sum(r[1]c:r[" & OhRws & "]c)"
    End With

    Cells.AutoFilter Field:=3, Criteria1:="=OH*", Operator:=xlAnd
    Range("A2:H" & UsdRws).SpecialCells(xlCellTypeVisible).Copy CstSht.Range("A" & 4 + PcRws)
    Range("A:B,D:D").EntireColumn.Hidden = False
    Cells.AutoFilter

Application.ScreenUpdating = True

End Sub

 

[nondigital]

Didn't work

Run-time error '9':
Subscript out of range.

 

[Fluff]

What line did it fail on?