Kako u jednoj koloni pomnoziti samo brojeve [Excel]

Option Explicit
Sub calculateTotal()

    Dim wsData As Worksheet
    Dim wsDataStartingRow As Long
    Dim wsDataEndingRow As Long
    Dim wsDataWantedColumn As Long
    Dim wsDataCurrentValue As String
    Dim wsDataWantedSum As Double
    Dim wsDataMultiplier As Double
    
    Dim i As Integer
    
    ' Sheet na kojem zelis da nadjes sum, predpostavka da ti se podaci nalaze na prvom (1) sheetu
    Set wsData = Worksheets(1)
    
    ' Kolona za koju zelis sum, predpostavka da zelis da sumiras kolonu A (kolona 1)
    ' 1 je A, 2 je B, 3 je C ...
    wsDataWantedColumn = 1
    
    ' Pocetni red, predpostavka da zelis od pocetka da krenes
    wsDataStartingRow = 1
    
    ' Krajnji red, trenutno ide do poslednjeg reda u toj koloni
    wsDataEndingRow = wsData.Cells(Rows.Count, wsDataWantedColumn).End(xlUp).Row
    
    ' Pocetna vrednost sume
    wsDataWantedSum = 0
    
    For i = wsDataStartingRow To wsDataEndingRow
        
        ' Trenutna vrednost
        wsDataCurrentValue = Trim(wsData.Cells(i, wsDataWantedColumn).Value)
        
        ' Ukoliko je vrednost u celiji broj, dodaj taj broj na sumu
        If IsNumeric(wsDataCurrentValue) Then
            wsDataWantedSum = wsDataWantedSum + CDbl(wsDataCurrentValue)
        End If
        
    Next i
    
    ' Vrednost kojom treba pomnoziti dobijenu sumu, trenutno je stavljeno na celiju 1, 2 to je B1
    wsDataMultiplier = wsData.Cells(1, 2).Value
    
    ' Konacno trazena suma ti je u celiji 2, 2 to ti je B2
    wsData.Cells(2, 2).Value = wsDataWantedSum * wsDataMultiplier

End Sub