Excel 2007 : Macro to fill in a relative position

I'm new to Excel, learning as I go along, and I have a question. I have a macro that is supposed to carry numbers from one sheet to another, but it doesn't. It over writes the same cell everytime. I want it to post the numbers by date (3/11/2011, 3/12/2011, etc) but it continuously writes a new number into the same date. Here is my macro. I'm new to Excel, please remember that, so it may be a little long.

Sub CopyNumbersToRespectiveWorksheet()
'
' CopyNumbersToRespectiveWorksheet Macro
' Copies the numbers to their respective worksheets
'
' Keyboard Shortcut: Ctrl+Shift+C
'
    Range("M6").Select
    Selection.Copy
    Sheets("Hard Copper").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Import").Select
    Range("N6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Hard Copper").Select
    Range("F136").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Import").Select
    Range("O6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Hard Copper").Select
    Range("H136").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Import").Select
    Range("P6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Hard Copper").Select
    Range("J136").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Import").Select
    Range("M7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Brit LB.").Select
    Range("D137").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Import").Select
    Range("N7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Brit LB.").Select
    Range("F137").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Import").Select
    Range("O7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Brit LB.").Select
    Range("H137").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Import").Select
    Range("P7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Brit LB.").Select
    Range("J137").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Import").Select
    Range("M8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Crude Oil").Select
    Range("D146").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Import").Select
    Range("N8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Crude Oil").Select
    Range("F146").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Import").Select
    Range("O8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Crude Oil").Select
    Range("H146").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Import").Select
    Range("P8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Crude Oil").Select
    Range("J146").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Import").Select
    Range("M9").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("Euro").Select
    Range("D137").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Import").Select
    Range("N9").Select
   
End Sub

that is basically it.........anyone with any help to offer would become my new best friend

Otis