Copiar y pegar datos en una misma columna proveniente de otra hoja

Con una macro divido datos en segmentos de 120 datos, ahora cada segmento de 120 pasa a una hoja dos llamada "Data" en la cual se calcula un exponente de hurst con todos esos datos. (A través de una macro que está funcionando)

Una vez que se calcula el exponente, lo copio y lo pego a una hoja3 que se llama "Hurst" y quiero automatizar ese último paso, por el momento el código que hace eso último es el siguiente:

Columns("C:C").Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.ClearContents
Columns("A:A").Select
Selection.Copy
Application.CutCopyMode = False
Application.Run "'Hurst (2) - copia.xls'!Macro1"
Columns("C:C").Select
Selection.Copy
Sheets("Data").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.Run "'Hurst (2) - copia.xls'!Module1.Hurst"
Range("C3").Select
Selection.Copy
Sheets("Hurst").Select
Range("G7").Select
ActiveSheet.Paste
Sheets("Datos").Select

Columns("D:D").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.Run "'Hurst (2) - copia.xls'!Module1.Hurst"
Range("C3").Select
Selection.Copy

Sheets("Hurst").Select
Range("G8").Select

ActiveSheet. Paste