I keep having a runtime error 5 at the part with the Left function, Thank you.
For Each c In Range("E592:E593").<wbr>SpecialCells(<wbr>xlCellTypeVisible)
mth = c.Text
MsgBox mth
If Left(mth, InStr(mth, "/") - 1) = Month(Date) Then c.Offset(0, 21).ClearContents
Next