调整代码以允许用户添加转换步骤何时开始的变量

如何解决调整代码以允许用户添加转换步骤何时开始的变量

我有一个宏可以分析原始版本和当前版本的数字数字。目前代码将“忽略”前三列（信息），将它们复制到结果选项卡，然后从源数据的第 4 列开始：

• 从原始版本复制源列
• 从当前版本复制源列
• 计算数值偏差
• 计算百分比偏差

如何使此代码动态化，以便如果原始/当前版本在开头有 9 列文本信息，则用户可以指定，

• 从列 X 中的数值比较计算开始，例如 10 左右，然后按原样复制其他列？
• 可能包含报告表 B2 中的输入字段（称为“Data_Changes”）

感谢您的帮助，

Sub Changes()
Dim x,y,z,Hdrs,i As Long,ii As Long,iii As Long
x = Original.UsedRange
y = Current.UsedRange
ReDim z(1 To UBound(x,1) - 1,1 To UBound(x,2) * 4 - 9)
ReDim Hdrs(1 To UBound(z,2))

For i = 2 To UBound(x,1)
    For ii = 1 To 3
        z(i - 1,ii) = x(i,ii)
    Next
Next
For i = 2 To UBound(x,1)
    iii = 0
    For ii = 4 To UBound(x,2)
        iii = iii + 4
        z(i - 1,iii) = x(i,ii): z(i - 1,iii + 1) = y(i,ii)
        If x(i,ii) = 0 Or IsEmpty(x(i,ii)) Then
            z(i - 1,iii + 2) = "New Entry"
            If iii = UBound(z,2) - 3 Then Exit For
         Else
            z(i - 1,iii + 2) = Format(z(i - 1,iii + 1) - z(i - 1,iii),"0.00")
            z(i - 1,iii + 3) = Format(z(i - 1,iii + 1) / z(i - 1,iii) - 1,"0%")
        End If
    Next
Next
For i = 1 To 3
    Hdrs(i) = x(1,i)
Next
ii = 0
For i = 4 To UBound(x,2)
    ii = ii + 4
    Hdrs(ii) = x(1,i) & " Original"
    Hdrs(ii + 1) = x(1,i) & " Current"
    Hdrs(ii + 2) = x(1,i) & " Deviation #"
    Hdrs(ii + 3) = x(1,i) & " Deviation %"
Next
Application.ScreenUpdating = 0
With DataChanges
    With .ListObjects(1)
        On Error Resume Next
        .DataBodyRange.Offset(1).Delete
        On Error GoTo 0
        .Parent.Columns(4).Resize(,100).Delete
        .Resize .HeaderRowRange.Columns(1).Resize(UBound(z,1) + 1,UBound(z,2))
        .DataBodyRange = z
        .HeaderRowRange = Hdrs
        For i = 4 To UBound(Hdrs) - 3 Step 8
            .HeaderRowRange.Columns(i).Resize(,4).Interior.Color = RGB(84,130,53)
        Next
        With .DataBodyRange
            For i = 4 To UBound(Hdrs) - 3 Step 8
                For ii = 1 To .Rows.Count Step 2
                    .Columns(i).Rows(ii).Resize(,4).Interior.Color = RGB(169,208,142)
                Next
                For ii = 2 To .Rows.Count - 1 Step 2
                    .Columns(i).Rows(ii).Resize(,4).Interior.Color = RGB(198,224,180)
                Next
            Next
        End With
    End With
    .Columns(4).Resize(,UBound(Hdrs) + 1).ColumnWidth = 12
End With
    
End Sub

示例：源数据原始版本

示例：输出/报告版本