Hallo ich hab folgendes Makro und es funktioniert bei dem was ich mache auch Perfekt. Allerdings will ich es nun an eine modifizierte Tabelle anpassen und ich brauche nur noch I von 1 bis 5 und 21 bis 50. Kann mir vielleicht jemand weiterhelfen? 

Dim i As Integer

 Cells(52, 21).Activate
 
 For i = 1 To 50
 
  ActiveCell.GoalSeek Goal:=0, ChangingCell:=ActiveCell.Offset(-4, 0).Range( _
        "A1")
    ActiveCell.Offset(7, 0).Range("A1").Select
    ActiveCell.GoalSeek Goal:=0, ChangingCell:=ActiveCell.Offset(-3, 0).Range( _
        "A1")
    ActiveCell.Offset(30, 0).Range("A1").Select
    ActiveCell.GoalSeek Goal:=0, ChangingCell:=ActiveCell.Offset(1, 0).Range( _
        "A1")
    ActiveCell.Offset(-37, 1).Range("A1").Select
  
  Next i