Excel VBA：使用变量作为列复制单元格范围内的数据

Question

我正在尝试将一系列单元格从一张纸复制到另一张纸。它搜索空列，然后复制当前数据。但是，它不会编译并在

失败

Sub Generate()
Dim i As Boolean
Dim x As Long
i = False
x = 2
Do While i = False
    If Sheets("Archive").Cells(2, x) = "" Then
    i = True
Sheets("Archive").Range(Cells(2, x), Cells(100, x)).Value = Sheets("Main").Range("H2:H100").Value    
MsgBox "Done!"
End If
    x = x + 1
    'debug
    MsgBox "Iteration " & x
Loop     
Sheets("Main").Range("H2:H100").Value = Sheets("Password Generator").Range("A2:A100").Value
Sheets("Main").Range("I2:I100").Value = Sheets("Password Generator").Range("B2:B100").Value

End Sub

完整的代码是：

var getAllSelectInstances = $(".sapMSlt").control(); 
getAllSelectInstances.forEach(function(oSelect){
  var getSelectedItem = oSelect.getSelectedItem();
  var getSelectedText = getSelectedItem ? getSelectedItem.getText() : null;
  Console.log("Selected Value : " + getSelectedText);
});