Dim intI As Long Dim maxLong As Long Dim cell As String Dim sum As Long sum = 0 maxLong = 65532 For intI = 2 To maxLong cell = "h" + LTrim(Str(intI)) If IsNumeric(Range(cell)) Then sum = sum + Range(cell) End If If Trim(Range(cell)) = "" Then Range("A2") = sum Exit For End If Next End Sub