Problem med makro i excel

Hej folkens,

Jeg har en lille forespørgsel. Jeg har en excel fil hvor jeg har 12 måneders data der skal opdateres løbende. Det har jeg en macro til. Macroen flytter bare månedsdataen en måned bagud, og gør derfor plads til sidste månede i ark 12.

Som en sikkerhedsfunktion for at undgå at skubbe data'en 2 måneder fremfor kun 1 kunne jeg godt tænke mig at makroen kontrollerede om celle L7 på arket ved navn parametre var tomt. Hvis cellen ikke var tom skulle makroen ikke køres. Hvis den var tom skulle makroen køres som normalt. Hvis makroen kørte færdig skulle den også taste dags dato i samme celle.

Makroen ser sådan ud indtil videre:

Sub Opdatering()
'
' Opdatering Makro
' Makro indspillet 08-01-2007 af Lars Andersen
'

'
    Sheets("2.").Select
    Cells.Select
    Selection.Copy
    Sheets("1.").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("3.").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("2.").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("4.").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("3.").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("5.").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("4.").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("6.").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("5.").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("7.").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("6.").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("8.").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("7.").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("9.").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("8.").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("10.").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("9.").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("11.").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("10.").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("12.").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("11.").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("12.").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-1
    Range("A1").Select
    Sheets("Parametre").Select
End Sub


Det skal lige siges at jeg har absolut intet forstand på makroer, så den anden er indspillet.

Nogen der kan sige hvordan den skal laves? På forhånd tak.

Lars Andersen