How to remove characters from cells in excel vba

Hi,

I was wondering, in the D and F column, how can I use vba to remove the "Day" which is in front of the numbers.
I want to do this because I would like to compare these numbers but am unable to do so because they are not considered integers.
Also, all these data in the excel attachment are all randomly generated, but I just extracted this small portion out.

PS: New to excel vba