まず・・・

あるタイミングで、Enterキーを押した後の、セルの移動方向を右に行くように変更しておきます。

    'セルの移動方向 右
    Application.MoveAfterReturnDirection = xlToRight

元に戻す時は、

    'セルの移動方向 下(標準)に戻す
    Application.MoveAfterReturnDirection = xlDown
    

------------------------------------------------------------------------

下の例では、表のL列まで来たら、次行のC列に移動し、罫線も自動で追加しています。

プログラム書く場所は、ワークシート・モジュール内
「VBAProject」→「Microsoft Excel Objects」→「Sheet1(など)」

「Sheet1」モジュールの上部左のリストから「Worksheet」を
「Sheet1」モジュールのの上部右のリストから「SelectionChange」を選択します。

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

        Select Case ActiveCell.Column
    
            'L列(12) まで来たら(表はK列まで)
            Case 12

                '最左へスクロールを動かす
                ActiveWindow.ScrollColumn = 1
                
                Call 罫線引き
    
        End Select
        
End Sub

------------------------------------------------------------------------

以下は、標準モジュールの中に書きます。
「VBAProject」→「標準モジュール」→「Module1(など)」

Sub 罫線引き()
        
    Range(Cells(ActiveCell.Row + 1, "C"), Cells(ActiveCell.Row + 1, "K")).Select
    
    Call 罫線

    '選択セル範囲の一番目を選択(C列)
    Selection.Cells(1).Select

End Sub

Sub 罫線()

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Color = -13312
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Color = -13312
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Color = -13312
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Color = -13312
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Color = -13312
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Color = -13312
        .TintAndShade = 0
        .Weight = xlThin
    End With

End Sub

上の「罫線」のプログラムについては、「マクロの記録」機能を使って自動で作成するのが楽です。その中から、セル範囲の選択部分を消去します。セル範囲の選択だけ変更することで、この部分は何度も利用できますから。