I have column J - populated only by numbers except for the header - for which I need the average value.
Dim lastrow_g As Long
lastrow_g = Cells(Rows.Count, "J").End(xlUp).Row
Dim range_average As Range
Set range_average = Range("J2:J" & lastrow_g)
Dim aver as Variant