Code:

Do
erste = Range("B1")
zweite = Range("B2")
If erste = zweite Then
Wert1 = erste + zweite
Range("A2") = Wert1
Range("A1:D1").Select
Range("D1").Activate
Selection.Cut
Sheets("Tabelle1").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Else
Range("A1:D1").Select
Selection.Cut
Sheets("Tabelle1").Select
Range.Address a
ActiveSheet.Paste
zeile = ActiveCell.Column + 1
Sheets("Sheet1").Select
Rows("1:1").Select
Selection.Delete Shift:=xlUp
End If

mein problem ist: ich möchte in der Schleife jedesmal mit der aktiven zelle automatisch eins herunter springen, ohne einen Range befehl zu benutzen. könnte mir jemand einen geeigneten befehl für vba verraten?