cambios fechador

Una consulta, espero me puedan ayudar a mejorar esta macro, muchas gracias desde ahora. Private Sub Worksheet_Change(ByVal Target As Range) Application.MoveAfterReturn = False If Target.Count = 1 Then If (Target.Column = 4 And Target <> 0) ...