copy non adjacent cells and paste to another sheet.

Dim copyRange As Range, cel As Range, pasteRange As Range

Set copyRange = ThisWorkbook.Sheets("Invoice").Range("E3,E4,B7,E24")
Set pasteRange = ThisWorkbook.Sheets("Register").Range("A5")
For Each cel In copyRange
    cel.Copy
ecolumn = Sheet2.Cells(1, Columns.Count).End(xlToLeft).Offset(0, 0).Row
pasteRange.Cells(1, ecolumn).PasteSpecial xlPasteValues
   
 
Next
    Application.CutCopyMode = False

I am trying to copy non adjacent cell from Invoice sheet and past the in Register sheet in consecutive row starting in A5- D5. I have tried the VBA below however , it copies all the non adjacent cell in A5 one at a time. how do I get them to go A5, B5, C5, D5, then next transfer to the last row.