VBA Excel - 範囲をコピーして列に貼り付ける必要があります

Question

長い単語の列があるので、最初の30語を別のシートの列にコピーして貼り付け、次の30語を貼り付ける必要があります マクロの開始点を記録しましたが、個々のビットを個別に書き込むことなく、すべてのことを行う方法がわかりません。

Sub asdasd() 

' 
    Range("A2:A29").Select 
    Selection.Copy 
    Sheets("COMMON WORDS").Select 
    Range("AG2").Select 
    ActiveSheet.Paste 
    Sheets("COMMON - SINGLE LIST").Select 
    Range("A30").Select 
    Range("A30,A57").Select 
    Range("A57").Activate 
    Range("A30:A57").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("COMMON WORDS").Select 
    Range("AH2").Select 
    ActiveSheet.Paste 
End Sub 

ありがとうございます！

Answer 1

Sub LoopCopy() 

    Dim rngCopy As Range, rngPaste As Range 

    Set rngCopy = Sheets("COMMON - SINGLE LIST").Range("A2:A29") 
    Set rngPaste = Sheets("COMMON WORDS").Range("AG2") 

    'copy while there's data in rngCopy... 
    Do while application.counta(rngCopy) > 0 
     rngCopy.copy rngPaste 
     set rngCopy = rngCopy.offset(rngCopy.rows.count, 0) '<< move copy range   
     set rngPaste = rngPaste.offset(0, 1) '<< move paste postion over 
    Loop 

End Sub