Apply Macro to other rows

[SEASIA]

Hello

I created a macro which copies certain cells from a row into certain cells in another sheet. Now I would like to apply the macro to the other rows.

The macro:

Sub SubmitSpread()
'
' SubmitSpread Macro
'

'
    Range("H4").Select
    Selection.COPY
    Sheets("SPX").Select
    Range("$D$3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("SPX Spreads").Select
    Range("J4").Select
    Application.CutCopyMode = False
    Selection.COPY
    Sheets("SPX").Select
    Range("$D$4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("SPX Spreads").Select
    Range("K4").Select
    Application.CutCopyMode = False
    Selection.COPY
    Sheets("SPX").Select
    Range("$B$7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

The cells in which are the values are copied must always be the same. In this case $D$3, $D$4 and $B$7. But with every new row from which the value gets copied, the reference to the row has to move lower too. From H4 to H5, H6 and so on. The same must be true for J4, to J5, J6... and K4 to K5, K6.... I guess I need a loop. But I can't figure out how to do. I have zero experience with VBA.

By the way, I assigned the macro to a shape I created.

 

[SEASIA]

To be clear. I need a shape for the active sheet at column N for every row. To the shape the macro is assigned. Then I can select from which rows I want to copy the values to the other sheet. Should I copy the first shape to all other rows? Or isn't this the right way....

 

[SEASIA]

I tried it this way;

Sub SubmitSpread()
'
' SubmitSpread Macro
'

'
  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("H4:N62")) Is Nothing Then
         Range("H4").Select
    Selection.COPY
    Sheets("SPX").Select
    Range("$D$3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("SPX Spreads").Select
    Range("J4").Select
    Application.CutCopyMode = False
    Selection.COPY
    Sheets("SPX").Select
    Range("$D$4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("SPX Spreads").Select
    Range("K4").Select
    Application.CutCopyMode = False
    Selection.COPY
    Sheets("SPX").Select
    Range("$B$7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End If
End Sub

But double click a cell just shows the formula.