Assign contents of active cell to a variable

I would like to reference the current position of the cell pointer within a macro so that I can assign data in the active cell to a variable. Example....Variable = Range("A1").Value....except the range will not remain constant. Thank you.