kopiointi n kpl soluja makrolla

Yritys on hyvä, vaan taitoja puuttuu...

Solusta G61 alaspäin on tietoa, jonka haluan kopioida solusta D2 alkaen alaspäin.
Tarkoituksena, että sarakkeeseen D jää joka toinen solu tyhjäksi, tämä onnistuu makrolla ilman ongelmia.

Ongelmana on, että miten teen lähtötiedon valinnan makrolla, koska solusta G61 alkaen vaihtelee.(3-500 solua).

Solusta G61 soluun G n tietojen kopioiminen ja liittäminen määräten solusta D2 alkaen joka toiselle riville.

Olen kiitollinen kaikista vinkeistä tai linkeistä asian ratkaisemiseksi.

Olen yrittänyt googlea yms..

Sub Rivitys1()
'
' Rivitys1 Makro
' luettelo solusta G61 alkaen kopioidaan joka toiselle riville
'
Range("G61").Select ’ lähtöalueen ensimmäinen solu
'aloitetaan kopiointi
Selection.Copy
Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Select
'liittämisen ensimmäinen solu
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'liitetään määräten, vain arvot, ei kaavoja
Range("G62").Select ’lähtöalueen seuraava solu
'seuraava solu alaspäin kopioidaan
Application.CutCopyMode = False
Selection.Copy
Range("D" & Rows.Count).End(xlUp).Offset(2, 0).Select
'liitetään joka toiselle riville
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("D77").Select
End Sub