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

Attached Files

sample.xlsm (16.6 KB, 19 views)