ciclo VB aplicacion

voy a aplicar el ciclo for creando una lista del 1 al 20:

Private Sub CommandButton1_Click()
For m = 1 To 20
Cells(m, 1) = m
Next
End Sub

ahora voy hacer que la lista de numeros se sumen:




Private Sub CommandButton2_Click()
For n = 1 To 20
Cells(21, 1) = Cells(21, 1) + Cells(n, 1)
Next
End Sub

para que este se aga una cadena de 2 en 2

Private Sub CommandButton3_Click()

For t = 1 To 20

Cells(t, 2) = t * 2

Next

End Sub

para que 15 sea constante y y se multipliquwe por los numeros del 1 to 20

Private Sub CommandButton4_Click()

For p = 1 To 20

Cells(p, 3) = 15

netx

For d = 1 To 20

Cells(d, 4) = Cells(m, 1) * Cells(p, 3)

Next

Cells(21, 4) = Cells(21, 4) + Cells(d, 4)

Next

End Sub

para hacer que