VBA for copying values with ActiveCell.Offset

[Shiftyshell]

Selected must be cell D. I want copy more values from more cells, but Active.Offset will be selected from cell "D".