用VBA中的最小行范围填充范围，然后继续下一行

Question

我正在尝试找到一种在excel vba中执行以下两个条件的方法。

1. 以1为增量将值添加到行范围。
2. 每个增量应从跳过的单元格开始，下一次迭代应从空单元格开始
3. 下一行的起点应为上一行的列总和的最小值

以下代码提供以下输出-

Sub main()

Dim need, lines, oldLines As Integer
Dim TS, shift As String
Dim minRange As Range
Dim i, j, k, l As Integer
    lines = 0
    Range("J1").Select
Do Until ActiveCell.Value = ""
    Select Case TS
          Case ActiveCell.Offset(1, -7).Value = 2
           need = ActiveCell.Offset(1, 8).Value
                      
         Do Until need = 0
           For i = 1 To 7 Step 2
               oldLines = ActiveCell.Offset(1, i).Value
               oldLines = oldLines + 1
               ActiveCell.Offset(1, i).Value = oldLines
                need = need - 1
               If need = 0 Then Exit For
           Next i
           
         Loop
    
    End Select
     ActiveCell.Offset(1, 0).Select
    
Loop
    
    MsgBox "Done!"
End Sub

可以修改代码以实现如下内容吗？

谢谢！