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.
Sub copySameDate()
Debug.Print ActiveCell.Column
Debug.Print ActiveCell.Row
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)
wksheet.Cells(activeRow, nextColumn).Select
End Sub
This works on every sheet of my workbook. I use it for data entry.