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

Hello GBegnall,

Try it as follows:-

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

If your data starts in E3, then change E1 in the code to E3.

I hope that this helps.

Cheerio,
vcoolio.

 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