Divide every cell in a column by a constant

Question

The output data I get has certain columns that are off by a factor of 10. There are about 50 columns, and in each batch of data the same columns are always off by 10. When I try to run I get an type mismatch" error. Here is the code I have so far:

Sub FixData()
Dim finalRow As Long
Dim rng As Range
Dim cell As Range

finalRow = Range("A100000").End(xlUp).Row

 Set rng = Range("F1:F" & finalRow)
 
 For Each cell In rng
 cell.Value = cell.Value / 10
 Next cell
 
 
  
    
End Sub