Makro udvidelse

Jeg har tidligere fået hjælp til oprettelse af en makro, der flytter en række tal fra et ark (Detaljeregistrering) til et andet ark (Timeseddel - sagsregnskab) i den række, der svarer til dags dato. Derefter "går" makroen tilbage til Detaljeregistrering og sletter alle indtastninger, så arket er klar til næste dags indtastninger. Det fungerer fint. Men jeg har nu forsøgt at forfine funktionen lidt, uden held. Jeg vil gerne tilføje to funktioner:
1: Samtidig med at dagens værdier overføres fra Detaljeregistrering:("b2;ay2") til række Timeseddel - sagsregnskab: lRow (rækken for dags dato), fra kolonne v og videre frem, ønsker jeg at paste værdien af Detaljeregistrering: ("b7") til Timeseddel - Sagsregnskab: lRow, kolonne G.

2: Efter makroen har været tilbage og slette indtastningerne i Detaljeregistrerings-arket, ønsker jeg at markøren går tilbage og stiller sig i Timeseddel - Sagsregnskab: lRow + 1, kolonne G.

Min nuværende makro ser således ud:



Sub Gemdagenstider()
'
' Gemdagenstider Makro
' Makro indspillet 14-10-2005 af Lars Mollerup-Degn
'
' Genvejstast:Ctrl+g
'
Application.EnableEvents = False

Dim v As Variant
Dim c As Range
Dim lRow As Long
  With Sheets("Timeseddel - sagsregnskab").Range("A12:A409")
    v = Format(Date, "dd.mm.yy")
      Set c = .Find(v, LookIn:=xlValues)
      If Not c Is Nothing Then
        lRow = c.Row
        Sheets("Detaljeregistrering").Range("B2:ay2").Copy
        Sheets("Timeseddel - sagsregnskab").Range("V" & lRow).PasteSpecial Paste:=xlPasteValues
    Sheets("Timeseddel - sagsregnskab").Range("H" & lRow) = Time
    Sheets("Detaljeregistrering").Range("d7:d63").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Sheets("Detaljeregistrering").Range("b7:b63").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Sheets("Detaljeregistrering").Range("b7").Select
         
          Else
        MsgBox "Dato ikke fundet"
      End If
  End With
Application.EnableEvents = True
End Sub
 

Glædelig advent.
Lars Mollerup-Degn