Excel VBA-将多行范围复制到另一张图纸

Excel VBA-将多行范围复制到另一张图纸,excel,vba,range,rows,Excel,Vba,Range,Rows,为什么它不工作,而是给我从8到472的所有行? 我需要特定的行,而不是全部。我可以按预期复制以下代码。这是在Excel2007上,可能是因为您使用的是行为不同的早期版本 with Sheets("XYZ") wSheet.Range("8:8,9:9,10:10,11:11,12:12,13:13,266:266,472:472").Copy .Cells(.Cells(.Cells.Rows.Count, 1).End(xlUp).Row + 1, 1).Select

为什么它不工作,而是给我从8到472的所有行?
我需要特定的行,而不是全部。

我可以按预期复制以下代码。这是在Excel2007上,可能是因为您使用的是行为不同的早期版本

with Sheets("XYZ")    
wSheet.Range("8:8,9:9,10:10,11:11,12:12,13:13,266:266,472:472").Copy
    .Cells(.Cells(.Cells.Rows.Count, 1).End(xlUp).Row + 1, 1).Select
    .Paste

我的的确是不同的代码行。我已经更新了代码。请核对谢谢,克里斯,但W表是另一张。
Public Sub Test()
    With Sheets("XYZ")
        .Range("8:8,9:9,10:10,11:11,12:12,13:13,266:266,472:472").Copy
        .Cells(.Cells(.Cells.Rows.Count, 1).End(xlUp).Row + 1, 1).Select
        .Paste
    End With
End Sub