This is an example of a macro I created using the active sheet and active cell properties. It copies the date from the previous cell.
Dim activeRow As Integer
Dim activeColumn As Integer
Dim previousRow As Integer
Dim nextColumn As Integer
Dim wksheet As Worksheet
Set wksheet = ActiveWorkbook.ActiveSheet
activeRow = ActiveCell.Row
activeColumn = ActiveCell.Column
previousRow = activeRow - 1
nextColumn = activeColumn + 1
wksheet.Range(ActiveCell.Address) = wksheet.Cells(previousRow, activeColumn)
This works on every sheet of my workbook. I use it for data entry.