Hello everyone

I'm confused ...
I would like to achieve a cycle optimized to achieve the two-digit decimal
Values ​​on the sheet were up to 2 decimal places
Type: D100 = 12345.67 becomes E100= 67
Type: D101 = 12345.6 becomes E100= 60
Etc..
Here's how to get the result
Code:
    For Each MyVar In Range("D1:D" & Cells(Rows.Count, 2).End(xlUp).Row)
        If IsNumeric(MyVar) Then
            Cells(MyVar.Row, 9) = Int((MyVar - Int(MyVar)) * 100)
        End If
    Next
I hope there is a different solution