EXCEL表格 VBA语言中使用Do Until命令复制模板表格，并横向合并复制后的表格

我在EXCEL表格宏中使用Do Until命令准备复制若干模板表格，并横向合并复制后的表格。调试始终报错，不知问题在哪里？
一直提示这一行有误
Do Until Range(Cells(6 + 33 * (x - 1), 3)).Value = ""
是这个循环语句有问题吗？

完整代码在这里：

参数x没有初始化