I come to this macro, because its alike to what I want.
Dim C As Range
For Each C In Selection
If IsEmpty(C.Offset(1)) Then
C.Copy Range("p" & Cells.Rows.Count).End(xlUp).Offset(1)
Range(C, C.End(xlDown)).Copy Range("p" & Cells.Rows.Count).End(xlUp).Offset(1)
Is there a method to alter this in order that the selection is completed in a column in place of a row, in addition columns on others worksheets?
Do you mean transpose the data, or just copy the next block horizontally?