Public Sub Macro1()
Set rngXVal = Range("I9:" & Range("I9").End(xlDown).Address)
changeFormat rngXVal
Set rngXVal = Range("J9:" & Range("J9").End(xlDown).Address)
changeFormat rngXVal
End Sub
Sub changeFormat(rng)
'For Each cel In rng
' cel.Value = CDbl(cel.Value)
' cel.NumberFormat = "0.00"
'Next cel
Dim arrData() As Variant
Dim arrReturnData() As Variant
Dim lRows As Long
Dim lCols As Long
Dim i As Long, j As Long
Range("I9:I17").Select
lRows = Selection.Rows.Count
lCols = Selection.Columns.Count
ReDim arrData(1 To lRows, 1 To lCols)
ReDim arrReturnData(1 To lRows, 1 To lCols)
Selection.NumberFormat = "0.00"
arrData() = rng.Value
For j = 1 To lCols
For i = 1 To lRows
If IsNumeric(arrData(i, j)) Then ' convert to number
arrReturnData(i, j) = CLng(arrData(i, j))
Else ' leave it alone
arrReturnData(i, j) = arrData(i, j)
End If
Next i
Next j
rng.Value = arrReturnData
End Sub