copia e incolla in riga evidenziata

buon di a tutti
con la macro di cui sotto selezionando la cella mi evidenzia la riga ,cosa devo aggiungere alla macro affinche' possa quest'ultima essere copiata in un'altra colonna.

 
 
 
Private m_LastCell As Range
Private m_LastSheet As Object
Sub MarkCross(rng As Range, Sht As Object)
Dim ScrUp_old As Boolean
'Verifico che sia selezionata solo una cella
If rng.Cells.Count = 1 Then
ScrUp_old = Application.ScreenUpdating
Application.ScreenUpdating = False
'Tolgo precedenti evidenziazioni
Sht.Cells.Select
Selection.Interior.ColorIndex = xlNone
'Evidenzio la riga
Sht.Rows(rng.Row).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
'Evidenzio la colonna
'Sht.Columns(rng.Column).Select
'With Selection.Interior
'.ColorIndex = 6
'.Pattern = xlSolid
'End With
End If
rng.Select
Application.ScreenUpdating = ScrUp_old
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If m_LastCell Is Nothing And m_LastSheet Is Nothing Then
Set m_LastCell = Target
Set m_LastSheet = Sh
MarkCross Target, Sh
Set m_LastCell = Nothing
Set m_LastSheet = Nothing
End If
End Sub

premesso che il tutto e abbastanza lento ,
il mio problema consiste che avendo in un un foglio xls quasi cento colonne quando clicco su una cella mi si evidenzia l'intera riga e in essa possa copiare quest'ultima in un'altra riga o colonna.
grazie marvin

Ciao

Vuoi copiare una riga in una colonna?
se si esiste solo un modo Copia e incolla speciale ->Trasponi

Scusa ma tutto quel codice per colorare una riga?
Ciao