Select or Copy three 3 non-adjacent cells

To simplify things a little:

Range(Replace("A?,C?,E?", "?", ActiveCell.Row)).Copy

You have the , outside the "". You need to put them inside. See this

Range("A" & ActiveCell.Row & ",C" & ActiveCell.Row & ",E" & ActiveCell.Row).Copy

Try this:

Union(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 3), Cells(ActiveCell.Row, 5)).Copy