Pasting Data in Different Locations

[ERed1]

Hey everyone,

Is there a VBA macro to have data paste in the next free row, but have different cells paste not in order?

        Sheets("Sheet1").Range("B18:B19").Copy
        Sheets("Sheet2").Activate
        lastrow = Range("A65536").End(xlUp).Row
        Cells(lastrow + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

Here is my current code.

I am currently just re-pasting that and changing the "lastrow + 1, 1" to "lastrow + 1, 4". If I do this though, it will drop down a row if I keep the range at "A...", so I have to change that too. So here is the two codes together.

        Sheets("Sheet1").Range("B18:B19").Copy
        Sheets("Sheet2").Activate
        lastrow = Range("A65536").End(xlUp).Row
        Cells(lastrow + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

        Sheets("Sheet1").Range("B16:B17").Copy
        Sheets("Sheet2").Activate
        lastrow = Range("D65536").End(xlUp).Row
        Cells(lastrow + 1, 4).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

Thanks for the help.