you can use this macro for a start...(same macro in file attached)
Sub Copycol()
Dim Wks As Worksheet
Dim nextRow As Long
Set Wks = Worksheets("Foaie1")
Dim j As Integer
Dim Myrange As Range
Application.ScreenUpdating = False
For j = 1 To 256
Set Myrange = Range(Wks.Cells(1, j), Wks.Cells(256, j))
nextRow = Sheets("Foaie2").Range("A" & rows.Count).End(xlUp).row + 1
Myrange.Copy
Sheets("Foaie2").Range("A" & nextRow).PasteSpecial (xlPasteValues)
Next j
Application.ScreenUpdating = True
End Sub
|