Rendeld a lapodhoz a makrót (lapfülön jobb klikk, Kód megjelenítése, a jobb oldalon kapott üres lapra másold be):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$1" And Cells(3) > "" Then
Range("A1:B1").Select
Selection.Insert Shift:=xlDown
Cells(1) = Cells(3)
Cells(2) = Cells(4)
Cells(3).Select
End If
End Sub
Vidd be a C1-be a dátumot, és amint a D1-be is bevitted az értéket, a makró lecsúsztatja az A:B tartományt, és beírja az aktuális adatokat az A1-be és a B1-be, majd a C1-re áll, hogy írhatsd a következõ adatot.