Option Explicit Sub TogliCarattere() Dim x As Long For x = 7 To Range("F" & Rows.Count).End(xlUp).Row Range("F" & x) = Left(Range("F" & x), Len(Range("F" & x)) - 1) Next x End Sub