Excel Macro to perform copy and paste and Loop

Hi,

I am new the excel VBA, and would appreciate all the help i can get from you guys and girls. I basically want my macro to copy my first active cell (E31) and paste into pre-define cell (this cell would never change, defined as "TRADE" ) where all the pre deteremine calculation is based off it. And then Macro will just do a refresh of the selected range (defined as REFRESH and REFRESH_MODEL). Once this is done, i want to ask my macro to copy a 3 different cells (the cells for this will never change, cell "TRADE", E23 & 24) and paste into F31 to H31 respectively. Once this is done, I want it to loop and repeat the process, but this time rather than paste into F31 to H31, I want it to paste into next row (e.g. F32 to H32). And then continue to loop until the list of information (Column E31:36) is reached the end.

I have paste my code for you below, any suggestion would be highly appreciated.





...............................................................................................................
Sub Macro10()
'
' Macro10 Macro
'

'
Dim rowNum As Integer, colNum As Integer, currCell As Range

rowNum = ActiveCell.Row
colNum = ActiveCell.Column

Set currCell = ActiveSheet.Cells(rowNum, colNum)

Do Until ActiveCell.Value = ""
ActiveCell.Offset(0, 0).Select

Selection.Copy
Application.Goto Reference:="TRADE"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.Goto Reference:="REFRESH"
Application.Run "OnRangeCalcKey"

Application.Goto Reference:="REFRESH_MODEL"
Application.Run "OnRangeCalcKey"

Application.Goto Reference:="TRADE"
Application.CutCopyMode = False
Selection.Copy
Range("F31").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("E23").Select
Application.CutCopyMode = False
Selection.Copy
Range("G31").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("E24").Select
Application.CutCopyMode = False
Selection.Copy
Range("H31").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(1, -3).Select

rowNum = rowNum + 1
Set currCell = ActiveSheet.Cells(rowNum, colNum)

Loop

End Sub

Sorry, forgot to tell you what is my problem.

The code I put together currently only work for the first time, as I have set it to paste cell to F31 to H31. I am having trouble to make it to understand, I want it post to the next row.

Thank you very much