Exporting two Activecell Offset values to rows D and E of another sheet

I'm hoping someone can tell me what I'm missing with this one. I tried to check with AI but it wants me to copy/paste and I'm getting a "Method not allowed" error.

I'm trying to copy values on "Source Sheet", of two cells offset in the same row of my ActiveCell to the next available cells after rows 50 of the D and E columns of "DestinationSheet". This is what I have but it seems that no matter where I put the 2nd End if, it either wont run (if at the end) or it wont do the second transfer. I've tried doing with one LastRow reference and I'm getting the same result as the two. AI is telling me to do it with one LastRow reference but to copy and paste both, but I'm getting a "method not allowed" error that way. They seem to run a little faster when doing it destination=source so if that's possible I'd like to stick with that. I'm tempted to try to just have it run a second macro when it's done with column D, but I'd like to learn to do it the right way.


Dim LastRow as Long
Dim LastRow2 as Long

LastRow =Sheets("Destinationsheet").Cells(Rows.Count, 4).End(xlUp).Row +1
LastRow2 =Sheets("Destinationsheet").Cells(Rows.Count, 4).End(xlUp).Row +1

If LastRow <= 50 Then
LastRow = 51
End If

If Last Row2 <= 50 Then
LastRow2 = 51
End If

Sheets("Destinationsheet").Range("D" & LastRow) = ActiveCell.Offset (0, 2).Value
Sheets("Destinationsheet").Range("E" & LastRow) = ActiveCell.Offset (0, 8).Value

End Sub

Please Login or Register  to view this content.

If Columns D and E in Destinationsheet are the same length, code can be made shorter.

Not in my test file. Both values are added below the last used cells in Columns D and E.
How many cells have data in Columns D and E?

The way I understand this "next available cells after rows 50 of the D and E columns" is that if there is data less then 50 rows in these columns, it'll paste it in row 51 while if there is data past that row, it'll paste it into the next available empty cell.
I could be totally wrong though.

https://edu.gcfglobal.org/en/excel-t...rging-cells/1/
https://theexcelclub.com/stop-do-not...hy-with-fixes/
https://www.perfectxl.com/excel-tool...t-merge-cells/
The above articles give some insight into your problem.

You can change any of the references to whatever is required as long as you are consistent and change everything that needs changing with it.
If you want the 2nd line to work on a different column, like column G, change it to so

Please Login or Register  to view this content.

The preferred case would be for you to attach a representative workbook with personal, if present, stuff changed.
There should be sufficient data to see what is going on and there should be a before and after.

That was my question as the last sentence in Post #2
If the length of both columns is the same, the code can be changed and made more efficient to take that in consideration.

Please Login or Register  to view this content.