Hi, I want to create a Macro in Excel which is able to copy the content from one sheet to another. But it's a little bit tricky: On one sheet the data is in row and should be copied to the other sheet in columns. Example: Sheet1 A4 to sheet2 A1 then sheet1 A5 to sheet2 B1 an so on. I do not know how to write the do until command for this in VBA. Could anybody help me? Thanks Toby

Row to Columns is Paste Special, Transpose. HTH Bryan

If you said what part of using do until you don't understand it might be easier to help. To end the loop you could use "isempty" or just if the Cells()="" Exit Do . To move through the cells use offset().

Hi Select the cell in Col 1 Sheet1 and rum this Macro. Option Explicit Sub Macro1() Dim Row%, xCol%, xRow%, Col%, Max% Col% = ActiveCell.Column Row% = ActiveCell.Row xRow% = Row% xCol% = 1 Max% = Selection.Count Do If Cells(Row%, Col%) <> "" Then Sheet2.Cells(1, xCol%) = Cells(Row%, Col%) End If Row% = Row% + 1 xCol% = xCol% + 1 Loop Until xCol% > Max% End Sub