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

Private Sub CommandButton1_Click()
dan = 2
While (dan <= 5)
Cells(dan, 3) = Cells(dan, 1) + Cells(dan, 2)
dan = dan + 1
Wend
End Sub


Private Sub CommandButton2_Click()
n = 2
While (n <= 5)
Cells(n, 4) = Cells(n, 1) - Cells(n, 2)
n = n + 1
Wend
End Sub


Private Sub CommandButton3_Click()
v = 2
While (v <= 5)
Cells(v, 5) = Cells(v, 1) * Cells(v, 2)
v = v + 1
Wend
End Sub


Private Sub CommandButton4_Click()
r = 2
While (r <= 5)
Cells(r, 6) = Cells(r, 1) - Cells(r, 2)
r = r + 1
Wend
End Sub


Private Sub CommandButton5_Click()
e = 2
While (e <= 6)
Cells(e, 3) = Clear
Cells(e, 4) = Clear
Cells(e, 5) = Clear
Cells(e, 6) = Clear
e = e + 1
Wend


End Sub


Private Sub CommandButton6_Click()
m = 2
While (m <= 6)
Cells(6, m) = Cells(6, m) + Cells(m, m)
m = m + 1
Wend
End Sub