Sub RoundToZero1()
Dim lRow As Long
lRow = ThisWorkbook.ActiveSheet.UsedRange.Rows.Count
lColumn = ThisWorkbook.ActiveSheet.UsedRange.Columns.Count

For RCounter = 1 To lRow
    For CCounter = 1 To lColumn
        Set Curcell = ThisWorkbook.ActiveSheet.Cells(RCounter, CCounter)

        If Curcell.Value = NA Then
                Curcell.Value = 
        Else Curcell.Value = LCase(Curcell.Value)
        End If
    Next CCounter
Next RCounter
End Sub