copy cells from sheets based on date, paste to another sheet

Yes, I changed them as follows;

    ActiveCell.Value = Sheets("CoA").Range(CellAddress).Value
    ActiveCell.Offset(0, 1) = Sheets("CoA").Range(CellAddress).Offset(0, 2).Value
    ActiveCell.Offset(0, 2) = Sheets("CoA").Range(CellAddress).Offset(0, 3).Value
    ActiveCell.Offset(0, 3) = Sheets("CoA").Range(CellAddress)(0, 5).Value
    ActiveCell.Offset(0, 4) = Sheets("CoA").Range(CellAddress).Offset(0, 4).Value
    ActiveCell.Offset(0, 10) = Sheets("CoA").Range(CellAddress).Offset(0, 6).Value

Thanks for taking the time to look at this by the way.