Fill-out column with another columns-info

H

holo man

Guest
I come to this macro, because its alike to what I want.

Sub Enncolumnar()

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)
Else
Range(C, C.End(xlDown)).Copy Range("p" & Cells.Rows.Count).End(xlUp).Offset(1)
End If
Next C

End Sub

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?
 
Back
Top