Add an If statement to check for a numeric value, something like
Dim c As Range, rng
Set rng = Worksheets("Sheet1").Range("A1:C10")
For Each c In rng
If Application.WorksheetFunction.IsNumber(c) Then
c = Application.WorksheetFunction.Ceiling(c, 10)
End If
Next c