Excel VBA问题：复制C:D列到A列首个空单元格时代码报错

我使用录制宏功能实现操作：复制C列和D列，滚动到A列第一个空单元格并粘贴。但重复执行时A列第一个空单元格位置会变化，原代码中写死了Range("A303").Select，我尝试了两个动态定位的代码片段，但运行都报错。

尝试的代码片段1：

Range("C1:D1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
'Range("A303").Select

'***
Range("A" & Range("A2:A" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row).Select
'***
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

尝试的代码片段2：

Range("C1:D1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
'Range("A303").Select

'***
Range("A2:A" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Select
'***

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

1. SpecialCells(xlCellTypeBlanks)会选中A列所有空单元格，当存在多个空单元格时，.Row仅返回第一个选中单元格的行号，若A列中间有空单元格，逻辑会直接出错；
2. 如果A列无空单元格，SpecialCells会抛出「未找到匹配单元格」的运行时错误；
3. 依赖Select操作会让代码稳定性差，容易因选中区域变化导致异常。

用Range("A" & Rows.Count).End(xlUp).Offset(1, 0)动态定位A列最后一个非空单元格的下一行，这是获取第一个空单元格的可靠方法，同时避免使用Select直接操作单元格对象，提升代码效率和稳定性。

修正后的代码片段：

' 定义并选中C:D列的有效数据范围
Dim copyRange As Range
Set copyRange = Range("C1:D1").Resize(Range("C1").End(xlDown).Row, 2)
copyRange.Copy

' 定位A列第一个空单元格
Dim pasteStart As Range
Set pasteStart = Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

' 粘贴值并清除复制状态
pasteStart.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

将原宏中以下这段代码：

Range("C1:D1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Range("A303").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

替换为上述修正代码即可解决问题。

内容的提问来源于stack exchange，提问作者Danny