how to use lookup to sum columns

Hi all,
I have a VBA macro used in autocad which uploads data to an excel spread sheet.
I was wondering if someone can help me.
Column B contains a number which could be 1,2,3,4 etc
I would like to be able to get VBA to lookup col B and for every instance of 1 then add the corresponding row data for columns F,H I J and place the sum for each at the side of the sheet. see attached file

In Anticipation Thanks
John B

The VBA code from autocad which loads the spreadsheet is as below

Option Explicit

'Extracts attributes from Tendon ID bubble to excel

Sub Pmark()
Dim Excel As Object
Dim ExcelSheet As Object
Dim RowNum As Integer
Dim Array1 As Variant
Dim cnt As Integer
Dim NumberOfAttributes As Integer
Dim Ssnew As AcadSelectionSet
Dim Sheet As Object
Dim Max As Integer
Dim Min As Integer
Dim NoOfIndices As Integer
Dim blkRef As AcadBlockReference
Dim objAtt As AcadAttributeReference
Dim objEnt As AcadEntity
Dim x As Long
' Start Excel if not running
On Error Resume Next
Set Excel = GetObject(, "Excel.Application")
If Err <> 0 Then
Err.Clear
Set Excel = CreateObject("Excel.Application")
If Err <> 0 Then
MsgBox "Could Not Load Excel!", vbExclamation
End
End If
End If
On Error GoTo 0
Excel.Visible = True
Excel.Workbooks.Add '............................
Excel.Worksheets(1).Select

Set ExcelSheet = Excel.ActiveSheet
ExcelSheet.Name = "BOM"                               '<-- change sheet name to suit
''Clear the cells
ExcelSheet.range("A12", "DZ100").Clear
ExcelSheet.range("A12:O12").Font.Bold = True

'Get Selection Set of Specific Block with Attributes
RowNum = 12
Dim Header As Boolean
Header = False
' The following sets up a selection set from the user for all objects
On Error Resume Next
' create set
Set Ssnew = ThisDrawing.SelectionSets.Add("BOM")
'if statement handles possible selection set error
If Err.Number <> 0 Then
   Set Ssnew = ThisDrawing.SelectionSets.Item("BOM")
   Ssnew.Clear
End If

Dim GC(0 To 1) As Integer
Dim GV(0 To 1) As Variant
Dim atribs
GC(0) = 0
GV(0) = "INSERT"
GC(1) = 2
'---------------------------------------------------
'Revise the block name "cable1" for your application
GV(1) = "cable1"
'---------------------------------------------------
Ssnew.Select acSelectionSetAll, , , GC, GV
For Each objEnt In Ssnew
   Set blkRef = objEnt
   Array1 = blkRef.GetAttributes
For cnt = LBound(Array1) To UBound(Array1)
   Set objAtt = Array1(cnt)
   If Header = False Then
   ExcelSheet.Cells(RowNum, cnt + 1).Value = objAtt.TagString
End If
Next cnt
RowNum = RowNum + 1
For cnt = LBound(Array1) To UBound(Array1)
   Set objAtt = Array1(cnt)
   ExcelSheet.Cells(RowNum, cnt + 1).Value = objAtt.TextString
Next cnt
Header = True
Next
'some formatting goes here:
With ExcelSheet.UsedRange
    .Columns.AutoFit
    Dim headRng As Excel.range
Set headRng = .range(Cells(1, 1), Cells(1, UBound(Array1) + 1))
   With headRng
       .Borders.LineStyle = xlContinuous
       .Interior.ColorIndex = 35
       .Font.ColorIndex = 5
   End With
Dim dataRng As Excel.range
    Set dataRng = .range(Cells(2, 1), Cells(.Rows.Count, UBound(Array1) + 1))
         dataRng.Select
    With Excel.Selection
        .Sort Key1:=range("B12"), Order1:=xlAscending, Key2:=range("A12") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
        .Borders.LineStyle = xlContinuous
        .Font.ColorIndex = 9
        .Interior.ColorIndex = 34


x = 4.2366

Debug.Print (Round(x, 2))

    
    End With
End With

Set dataRng = Nothing
Set headRng = Nothing
Set ExcelSheet = Nothing
Ssnew.Delete
End Sub