Then you need to assign a variable to stand for that cell you are trying to copy. Its hard to tell where because your code is too spaced out but:
I think right here you'd go
If ActiveCell.Value + Month(ActiveCell.Offset(0, 1).Value) < Today Then ' if contract start plus one frequency period is before present date
CellAddress = ActiveCell.Address
Call enterdata ' create entries on Receipts & Payments
You need to dim CellAddress as a String.
Then when you get to the line that was causing you trouble, you should be able to go
ActiveCell.Value = Sheets("CoA").Range(CellAddress).Value
Bookmarks