Sub s_1()
  Dim v_Rng As Range
  Dim v_Sum As Double
  Set v_Rng = Worksheets("Лист1").Range("A1:B1000")
  For i =  1  To v_Rng.Rows.Count
    For j =  1  To v_Rng.Columns.Count
      v_Sum = v_Sum + v_Rng(i, j)
      'или
      'v_Sum = v_Sum + v_Rng(i, j).Value
      'или
      'v_Sum = v_Sum + v_Rng.Cells(i, j)
      'или
      'v_Sum = v_Sum + v_Rng.Cells(i, j).Value
    Next j
  Next i
  Debug.Print v_Sum
End Sub

 Sub s_2()
Sub s_2()
  Dim v_Rng As Range
  Dim v_Cell As Range
  Dim v_Sum As Double
  Set v_Rng = Worksheets("Лист1").Range("A1:B1000")
  For Each v_Cell In v_Rng
    v_Sum = v_Sum + v_Cell
  Next
  Debug.Print v_Sum
End Sub

 Sub s_3()
  Dim v_Arr As Variant
  Dim v_Sum As Double
  v_Arr = Worksheets("Лист1").Range("A1:B1000")
  For i =  1  To UBound(v_Arr,  1 )
    For j =  1  To UBound(v_Arr,  2 )
      v_Sum = v_Sum + v_Arr(i, j)
    Next j
  Next i
  Debug.Print v_Sum
End Sub

 Sub s_4()
  Dim v_Sum As Double
  Dim v_Arr As Variant
  v_Arr = Worksheets("Лист1").Range("A1:B10")
  For i =  1  To UBound(v_Arr,  1 )
    For j =  1  To UBound(v_Arr,  2 )
      v_Sum = v_Sum + Len(v_Arr(i, j))
    Next j
  Next i
  Debug.Print v_Sum
End Sub

  Debug.Print Evaluate("=SUM(LEN(A1:B10))")