Wie kann ich diesen Code anpassen das er das über die ganze Spalte macht ohne das ich den Code jetzt auf 300 Zeillen mehr schreiben muss?

Wäre über jeden Tip und jede hilfe Dankbar.

Private Sub CommandButton1_Click()
    Worksheets("Tabelle1").Cells(1, 2).Value = Worksheets("Tabelle1").Cells(1, 2).Value + Worksheets("Tabelle1").Cells(1, 5).Value
    Worksheets("Tabelle1").Cells(2, 2).Value = Worksheets("Tabelle1").Cells(2, 2).Value + Worksheets("Tabelle1").Cells(2, 5).Value
    Worksheets("Tabelle1").Cells(3, 2).Value = Worksheets("Tabelle1").Cells(3, 2).Value + Worksheets("Tabelle1").Cells(3, 5).Value
    End Sub