adresse skal flyttes ned i bunden

dags dato kan du sætte ind ved ctrl + shift + ;
crtl + end giver dig sidste linje

Du kan lægge denne kode i arkets kodemodul:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 And Target.Text = "x" Then
        Target.EntireRow.Cut
        Range("a65536").End(xlUp).Offset(1, 0).Select
        ActiveSheet.Paste
        Range("C" & Selection.Row).Value = Date
    End If
End Sub

Hvis du sætter kryds i c-kolonnen ud foren række flyttes hele rækken nederst, og der indsættes en dato i c-kolonnen. Dette kan selvfølgelig ændres til andre kolonner.