Dim num1 As Integer
Sub test1()
Range("a1").Value = num1
End Sub
Sub test2()
Range("a2:a50").Value = "vvv"
End Sub
Sub test3()
Range("a2:a50").Clear
End Sub
Sub test1()
Range("a1").Value = num1
End Sub
Sub test2()
Range("a2:a50").Value = "vvv"
End Sub
Sub test3()
Range("a2:a50").Clear
End Sub