Extracting Number from various cell and added them and multiply with a factor

Hi all,

I am facing a problem in trying to extract a number for variouse cells (within the same row, one at a time) and to multiply them with number.

The following table can be seen in the attached file along with the macro:

Sub test()

Application.ScreenUpdating = False

Dim lr1 As Long

lr1 = Range("A" & Rows.Count).End(xlUp).Row


j = 1
sum2 = 0
sum1 = 0

stcol = 9
ltcol = 11

const1 = 1

For i = 3 To lr1
    Do While j <= 1 + 3
        If Cells(i, j) <> "" Then
            sum1 = 0
            counter = stcol
            Do While counter <= ltcol
                ltstr = Len(Cells(i, counter))
                If ltstr > 0 Then
                    If const1 = j Then
                        For w1 = 1 To ltstr
                            If Mid(Cells(i, counter), w, 1) = Left(Cells(2, j), 1) Then
                                psac1 = w1 'Position of Character in Question
                                Exit For
                            End If
                        Next w1
                        
                            If psac1 - 1 = 0 Then
                                num1 = 1
                            Else
                                num1 = Mid(Cells(i, counter), 1, (w1 - 1))
                            End If
                            
                        sum1 = sum1 + num1
                    Else
                        For w2 = 1 To ltstr
                            If Mid(Cells(i, counter), w2, 1) = Left(Cells(2, j), 1) Then
                                psac1 = w1 'Position of Character in Question
                                Exit For
                            End If
                        Next w2
                        For w1 = 1 To ltstr
                            If Mid(Cells(i, counter), w2, 1) = Left(Cells(2, j - 1), 1) Then
                                psac2 = w2 'Position of Character in Question
                                Exit For
                            End If
                        Next w1
                        
                            If w2 - w1 = 1 Then
                                num1 = 1
                            Else
                                num1 = Mid(Cells(i, counter), w1 + 1, (w2 - w1))
                            End If
                            
                        sum1 = sum1 + num1
                    End If
                End If
                counter = counter + 1
            Loop
        sum2 = sum2 + (sum1 * Cells(i, j + 12))
        Cells(i, 13) = sum2
        End If
        j = j + 1
    Loop
Next i

Application.ScreenUpdating = True
End Sub

Column L contains the manual calculation that I made as reference to check whether the code works or not.

For example Cell L5 basically is 120 times 0.1. And Cell L9 is:
(120 x 0.2) + (120 x 0.2) + (120 x 0.2) + (10 x 0.1) + (10 x 0.1) + (10 x 0.1) + 0.5 = 75.5

And the code above basically trying to copy the calculation above automatically.

It would be great if I could get some assistance to make my code works.

Thanks in advance