VBA to make Total base on condtion

Hi All friend,

I wonder someone may be able to help me please,

i need to make VBA that calculate Total (Sum) base on condition, that i have highlight the row that need to make total (Sum) the amount base on the condition
when i click on button (Total) , is networking i don't know why

I think that the best approach here would be a pivot Table and not VBA but its hard to say because I don't see clearly what the sheet does. I think another column with categories will solve the problem, Then those categories will be the Rows for the Pivot Table.

As for the code Its making reference to a LsVisXLB.xla that's an Addin without it I cannot debug any further.

But I highly thing a Pivot Table will solve all the issues.

Thanks

Pls help me to on vba bottom "total" it run when I cut out some code

Sub test()
    Dim x As String
    With Range("a16").CurrentRegion
        x = .Columns(3).Resize(.Rows.Count - 1).SpecialCells(4).Offset(, 1).Address(0, 0)
        .Rows(.Rows.Count).Cells(4).Resize(, .Columns.Count - 1).Formula = "=sum(" & x & ")"
    End With
End Sub

thank you jindon, wonderful