Pues solo tienes que adaptarlo a esas columnas.
Edito:
así:
Select Case Target.Column
Case is <aqui pones la columna C en Número que sería 3>
Target.Value = Left(Target.Value, 4)
Case is <Columna d>
Target.Value = Left(Target.Value, 7)
case is <otra columna>
Target.Value = Left(Target.Value, y el numero de caracteres que quieres que acepte)
End Select
Y así vas agregando "Case is" por cuantas quieras agregar