具有计数器的Excel VBA多个子例程

Question

所以，我一直在尝试解决这个问题，只是要注意，我仍在学习VBA，但是我正在这里寻求建议/帮助。这个问题。

我基本上是在我的主程序中使用一个计数器，然后调用一个子程序，该子程序需要使用主程序中的计数器来正确执行我需要的操作。下面是我到目前为止的代码。

Sub Main()

Dim Count As Integer
Dim X As Integer
Worksheets("Main Sched.").Activate
X = 2
Count = Cells(2, Columns.Count).End(xlToLeft).Column

Do While X < Count + 2
Cells(X, 2).Select
Ctype = ActiveCell

If Ctype = "3/C #6" Then Call Ct1
If Ctype = "2/C #6" Then Call Ct2

X = X + 1
Loop
End Sub

Sub Ct1()

Cells.Copy
Worksheets("Test").Activate
Cells(X + 2, 2).Select
Cells(X + 2, 2).PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False

End Sub

以运行时错误'1004'结尾，将excel工作表中的单元格粘贴到当前单元格中，然后粘贴到第一个单元格（A1或R1C1）中。 我需要获取数据并将其粘贴到B4中，然后在基于“ Count”的循环中将其相应地调整为类似于B8，B13等。

之所以需要将其拆分，是因为它将要引用许多不同的“ Ctype”值，并且每个人对于如何从“主表”中获取数据都有不同的方案。工作表改为“测试”工作表。