VBA for multiple paste

[Slicemahn]

Hello Everyone,

Is there a way to advance your cursor to the end of pasted data? And if there are multiple ranges to be pasted could there be code written?

Let me know your thoughts everyone.

 

[VoG]

Hello Slicemahn

You don't need to move the cursor or select or anything like that to copy and paste data. And, yes - you can copy and paste to multiple ranges.

So, what do you want to do?

 

[Slicemahn]

Thanks for your reply. You know how you may have text with data within Outlook and you want to copy and paste them into a spreadsheet. As soon as one block of data is pasted, you have to go back to the source and then back to the spreadsheet find the end of the data previously pasted and then paste in the new block of data. I was thinking that if there a worksheet event that would advance the MS Excel to end of the previously pasted range to facilitate the new range about to pasted.

 

[VoG]

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

will give you the last occupied row in column A. Does that help? If not, please post your code

 

[Slicemahn]

VBA For Multiple Paste

I have posted my code to facilitate what I envisioned. The caveat to this macro is that the user would have to right click and then select paste for the code to execute. Conversely, if the user did a ctrl + v then we are back at square one.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim EndRow As Integer
If ActiveSheet.UsedRange.Rows.Count = 0 Then
    Exit Sub
End If
EndRow = Cells(65536, 1).End(xlUp).Row
Cells(EndRow + 1, 1).Activate
End Sub