algoritmo como sumar, restar, multiplicar, dividir y sumar los reulstaos ciclo for

Private Sub CommandButton1_Click()
For r = 2 To 5
Cells(r, 3) = Cells(r, 1) + Cells(r, 2)
Next
End Sub


Private Sub CommandButton2_Click()
For k = 2 To 5
Cells(k, 4) = Cells(k, 1) - Cells(k, 2)
Next
End Sub


Private Sub CommandButton3_Click()
For m = 2 To 5
Cells(m, 5) = Cells(m, 1) * Cells(m, 2)
Next
End Sub


Private Sub CommandButton4_Click()
For d = 2 To 5
Cells(d, 6) = Cells(d, 1) / Cells(d, 2)
Next
End Sub


Private Sub CommandButton5_Click()
For c = 2 To 5
Cells(c, 3) = Clear
Cells(c, 4) = Clear
Cells(c, 5) = Clear
Cells(c, 6) = Clear
Next




End Sub


Private Sub CommandButton6_Click()
For i = 3 To 6
Cells(6, i) = Cells(6, i) + Cells(i, i)
Next
End Sub