Excel VBA输出范围在不需要时跳过列

我构建了一些VBA来帮助将记录从不正确的选项卡移动到正确的选项卡。我已经计算出了对动态范围求和的逻辑，因为每次刷新时输出的大小可能不同

我遇到的问题是在我编写的求和输出中，当我不希望它跳过某些列时，它会跳过这些列。跳过的列是

H（列8）

，

L（列12）

，和

R列（列18）

。设计的列输出范围为

3到41

。输出被设置为覆盖一个求和公式，该公式根据生成工作表的模板的先前设计（不是我自己的设计），是硬编码的，并且没有对给定列中的正确单元格范围求和

For x = 3 To 41
    Set r = Range(Cells(6, x), Cells(6, x).End(xlDown))
    r.End(xlDown) = WorksheetFunction.Sum(r)
Next x

由于

.End（…）

一碰到空白单元格就停止，因此我假设这些列中的某个位置有空白单元格，并且您的总和将存放在前面的行/单元格中，而不是您期望的位置