Sarakkeet yhdeksi sarakkeeksi

ei tietoa onko sarakkeet peräkkäin vaiko siellä täällä ja mihin kopioidaan
mutta tällä alkuun...
muuttele kohdesarake sopivaksi, nyt A sarake ja alkaa A1.
Toimii siten, että maalaat kopioitavan alueen ja kopioi tiedot alkaen A1

moduuliin...

Sub YhteenSarakkeeseen()
Dim Alue As Range
Dim Sarake As Integer
On Error GoTo virhe
Set Alue = Application.Intersect(Selection, ActiveSheet.UsedRange)
Range("A:A") = ""
For Sarake = 1 To Alue.Columns.Count
If Sarake = 1 Then
Alue.Range(Cells(1, Sarake), Cells(Alue.Rows.Count, Sarake)).Copy Range("A1")
Else
Alue.Range(Cells(1, Sarake), Cells(Alue.Rows.Count, Sarake)).Copy Range("A65536").End(xlUp).Offset(1, 0)
End If
Next Sarake
poistu:
Exit Sub
virhe:
MsgBox "et valinnut sarakkeita!"
GoTo poistu
End Sub