Sub Adresse_schick()
' Adresse_schick Makro
Range("A1").Select
ActiveCell.Offset(8, 0).Range("A1").Select
Dim start(1 To 7)
For i = 1 To 7
If ActiveCell.Value "" Then
start(i) = ActiveCell.Value
Else
i = i + 1
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Range("A1").Select
ActiveCell.Offset(8, 0).Range("A1").Select
For n = 1 To 7
ActiveCell.Value = start(n)
ActiveCell.Offset(1, 0).Range("A1").Select
Next n
End Sub