Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 4 Then Cells(Target.Row + 1, 1).Select End If End Sub P.S. W załączniku plik .xlsm, o który pytałeś - należy spakować przed wysłąniem na forum.
