嗨！我怎样才能更好地完成这段代码？没有所有选择。我找到了一些代码，但它们都不适用于这部分 End.(xlDown) [重复]

Question

简单的复制和粘贴，这个宏从这些列中获取所有内容并将它们粘贴到另一个工作表中作为值（配置器）

Range("A3:B3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Configurator").Select
Range("A1").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

我希望通过使用更好的代码优化这个宏来使其更快