Hi, Anwaar!
It seems as if everybody missed this topic, so first of all welcome to Chandoo's website Excel forums. Thank you for your joining us and glad to have you here.
As a starting point I'd recommend you to read the three first green sticky topics at this forums main page. There you'll find general guidelines about how this site and community operates (introducing yourself, posting files, netiquette rules, and so on).
Among them you're prompted to perform searches within this site before posting, because maybe your question had been answered yet.
Feel free to play with different keywords so as to be led thru a wide variety of articles and posts, and if you don't find anything that solves your problem or guides you towards a solution, you'll always be welcome back here. Tell us what you've done, consider uploading a sample file as recommended, and somebody surely will read your post and help you.
And about your question...
If you haven't performed yet the search herein, try going to the topmost right zone of this page (Custom Search), type the keywords used in Tags field when creating the topic or other proper words and press Search button. You'd retrieve many links from this website, maybe you find useful information and even the solution. If not please advise so as people who read it could get back to you as soon as possible.
Specifically it's hard to give you a bullet-proof answer since you didn't tell us which is the internal application you're talking about. What you can do with the following code is to put a group of cells (in this case the selected ones) into the clipboard, so the first thing you should do is try if pasting with Ctrl-V does the job. If not consider elaborating a bit more your explanation including details of the so called internal application, data to be pasted into and every detail as possible.
Code:
-----
[pre]
Code:
Option Explicit
Sub CopyRangeToClipboard()
' constants
Const ksRowSeparator = vbCrLf
Const ksColumnSeparator = ","
' declarations
Dim I As Long, J As Long, A As String, rng As Range
' start
Set rng = Selection.Cells
A = ""
' process
' build string
With rng
For I = 1 To .Rows.Count
For J = 1 To .Columns.Count
A = A & .Cells(I, J).Value
If J <> .Columns.Count Then A = A & ksColumnSeparator
Next J
If I <> .Rows.Count Then A = A & ksRowSeparator
Next I
End With
' copy to clipboard
Dim DataObj As New MSForms.DataObject
DataObj.SetText A
DataObj.PutInClipboard
Set DataObj = Nothing
' end
Set rng = Nothing
End Sub
[/pre]
-----
Just advise if any issue.
Regards!
