下記イベントにて編集後に計算できましたが これでも大丈夫でしょうか？
  Private Sub DataGridView01_CellEndEdit( _
   ByVal sender As Object, _
   ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _
   Handles DataGridView01.CellEndEdit



      Dim wk_suryo As Decimal = 0
      Dim Wk_tanka As Decimal = 0
      Select Case DataGridView01.Columns(Active_Col).Name
            Case "数量"
              If Trim(DataGridView01(Active_Col, Active_Row).Value) = "" Then
                wk_suryo = 0
              Else
                wk_suryo = DataGridView01(Active_Col, Active_Row).Value
           　 End If
              If Trim(DataGridView01(Active_Col + 2, Active_Row).Value) = "" Then
                 Wk_tanka = 0
              Else
                 Wk_tanka = DataGridView01(Active_Col + 2, Active_Row).Value
              End If
              DataGridView01(Active_Col + 3, Active_Row).Value = wk_suryo * Wk_tanka
            Case Else
     End Select
    End Sub