Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub NextConseqNumber()
'Declaring the variable
Dim HighestNumber As Long
Dim theRange as range
Dim theMax
'don't select the range as you say you want to populate the selected cell
set theRange = Range("C10:c1000")
theMax = application.Max(theRange)
Selection.value = theMax+1
End Sub