Hjælp til simpel VBA-opgave

Arrh - brugte optageren og kom frem til dette, som fungerer fint:

Sub hyhy()
'
' hyhy Makro
' Makro indspillet 02-10-2012 af Mr. T
'

'
    Sheets("Åbningsbalance_Stage1").Select
    Range("B12").Select
    Selection.End(xlToRight).Select
    Selection.End(xlToLeft).Select
    Range("B12").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("ÅbningsBalance").Select
    Range("B6").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.End(xlToLeft).Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=now()"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub