Attribute VB_Name = "testsub1"
Sub テスト()

    Dim sum As Integer
    Dim i As Integer

    sum = 0

    For i = 1 To 10
        sum = sum + i
    Next i

    Range("A1").Value = sum

    otherCellSet

End Sub

Sub テスト2()

    Dim multiply As Integer
    Dim i As Integer

    multiply = 1

    For i = 1 To 5
        multiply = multiply * i
    Next i

    Range("A1").Value = multiply

    otherCellSet

End Sub

Sub otherCellSet()

    Range("A2").Value = Range("A1").Value * 2
    Range("A3").Value = Range("A2").Value * 2

End Sub