Above your first sub declare variables:
Public foo As Variant
Sub bar()
foo = 2
End Sub
Sub test()
cell.value = (foo*2) ' This isn't a real line, but it's the concept that matters
End Sub
I generally do this when I have variables that I want global and functions that will update the variable if it changes and I call the function in each sub.