Primeiro, na pasta de trabalho que contém a macro, no IDE do VBA, vá para Ferramentas - > Referências e adicione a referência a "Microsoft Forms 2.0 Object Library" (o caminho do arquivo no meu sistema é C:\Windows\system32\FM20.DLL
.)
Em seguida, tente esta macro. Essa macro colocará os dados "selecionados" (destacados) na área de transferência. Irá da esquerda para a direita se você selecionar uma série de células na mesma linha; ele vai de cima para baixo se você selecionar uma série de células na mesma coluna.
Se você precisa fazer um composto de linhas e colunas (uma seleção em forma de retângulo de mais de uma linha e mais de uma coluna), você pode adicionar código como:
MsgBox "Row: " & cell.Row & " Column: " & cell.Column
para determinar quais números de linha (com base em 1) e números de coluna (A = 1) estão sendo enumerados e em qual ordem.
Se você precisar de algo que coloque os dados na área de transferência, aguarde uma ação do usuário e, em seguida, coloque o próximo conjunto de dados na área de transferência automaticamente, essa macro precisará ser modificada. Não está claro a partir de sua pergunta o que exatamente você quer dizer com "selecionado".
Sub su492198()
Dim cell As Range
Dim sel As Range
Dim output As String
Dim first As Boolean
Dim dat As New DataObject
first = True
output = ""
On Error GoTo Errhndl
Set sel = Selection
On Error GoTo 0
For Each cell In sel.Cells
If first = False Then output = output & ", "
output = output & cell.Value
first = False
Next
On Error GoTo Errclip
dat.SetText output
dat.PutInClipboard
On Error GoTo 0
Exit Sub
Errhndl:
MsgBox "Can't use this macro if nothing is selected or a non-cell object is selected"
Exit Sub
Errclip:
MsgBox "Error copying text to clipboard! Text was: " & output
End Sub