Using vba -how do I remove characters from right of space on all cells in specific columns

 Sub Test()

Dim c As Range

    For Each c In Sheet1.Range("E1", Sheet1.Range("G" & Sheet1.Rows.Count).End(xlUp))
          c.Replace What:=Right(c, 12), Replacement:=""
    Next c
    
End Sub

This also works but not all cells format as dates

When I use the column filter only some of the cell values list within the relevant year.

Attachment 735840

even though the entire column is formatted as date d/mm/yyyy