Option Explicit 
 
 'Note that this approach is intended as a solution for a fixed office
 'environment. Where a 'fixed' approach is not appropriate for your use
 'please look at http://www.vbaexpress.com/kb/getarticle.php?kb_id=347
 'for a more flexible approach to this...
 
Private Sub Worksheet_Activate() 
     'Move to the right on "Enter"
    Application.MoveAfterReturnDirection = xlToRight 
     'select the next empty row
    Columns(1).Rows(65536).End(xlUp).Offset(1, 0).Activate 
End Sub 
 '
 ''<< TO USE THE ONLY ON ONE PART OF THE SHEET >>
 'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 '
 '      'Replace D (below) with the column you want to use for an empty column
 '      If Left(Target.Address, 2) = "$D" Then Intersect(Target.EntireRow.Offset(1, 0), Range("A:A")).Select
 '
 'End Sub
 
 
 '<< TO USE THIS ON MORE THAN ONE PART OF THE SHEET >>
 
 'The example below sets your data entry columns as being the columns A, B, and C
 'To change this, replace A:A with whatever column you need to start from (e.gs. H:H or, AZ:AZ)
 'Then replace D in $D$ with the single-letter column you want to use for an empty column
 'For two-letter columns, replace D$ with the two letters. e.g. ($BD or $CV) and
 'change (Target.Address, 2) to (Target.Address, 3).
 
 'To set further data entry columns on a worksheet, just copy and paste
 'the If Left(Targ...etc. line of code as many times as you wish
 'and change the 'start' and empty 'end' columns as shown above.
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
     
     'Replace D (below) with the column you want to use for an empty column
    If Left(Target.Address, 2) = "$D" Then Intersect(Target.EntireRow.Offset(1, 0), Range("A:A")).Select 
     
     '<< Add any more that you want >>
     'Replace H and E (below) with the columns you want to use
    If Left(Target.Address, 2) = "$H" Then Intersect(Target.EntireRow.Offset(1, 0), Range("E:E")).Select 
     
     '(ditto)
     
     '(ditto)
End Sub