Excel formatting

Squishy

The commented code below may work for you. It loops through a range (in bold) on the active sheet, rounds the numbers to two decimal places (but not using the VBA function which has quirks), determines the number of decimal places then formats the cells as a Number to that many (using a Case Select statement rather then nested IFs). It ignores any blanks or text cells (which don't just contain a number as text):

Sub FormatByDP()

Dim Cl As Range, DP As Integer, DPsep As String, n As Long

DPsep = Application.DecimalSeparator ' get local decimal sepaartor (e.g. . or ,)

'Loop through cells in range
For Each Cl In Range("F2:M29")
    If If IsNumeric(Cl.Value) And Not IsEmpty(Cl.Value) Then 'not a blank and a number (or can be converted to a number)?
        n = n + 1 'count another cell
        With Cl
            .Value = WorksheetFunction.Round(.Value, 2) ' reliably round to 2 dps
            If InStr(1, .Value, DPsep) > 0 Then ' see if there's a decimal separator
                DP = Len(.Value) - InStr(1, .Value, DPsep) ' see no. decimal places remaining
                Else
                DP = 0
            End If

            Select Case DP ' pick how to format the cell  based on DP
                Case 0
                    .NumberFormat = "#,##0"
                Case 1
                    .NumberFormat = "#,##0.0"
                Case Else
                    .NumberFormat = "#,##0.00"
            End Select
        End With
    End If
Next Cl

MsgBox "Formatted " & n & " numbers in range"

End Sub

Hope this works for you.