Here's how you do it. This will add your variable (which I set here with a
value of 99) to the first free cell  in Column A of Sheet2, without affecting
the Active Cell or the Selection.

myVariable = 99
Sheets("Sheet2").Range("a65536").End(xlUp).Offset(1, 0).Value =
myVariable