Hur klipper jag ut värden från cell C2 till ex. C11 och klistrar in dessa i B2 till B11, börjar om med cell D2 till D10 och klistrar in i B11 till B20 osv. till alla kolumner är tomma?

Björn

Så här kanske...

<code>
Sub FlyttaCellinnehåll()
With ActiveSheet
Do While .UsedRange.Columns.Count > 2
.Range("B1:B11").Delete Shift:=xlToLeft
Loop
End With
End Sub
</code>


sorry, läste inte ordentligt, återkommer...

Nu då...

<code>
Sub FlyttaCellinnehåll()
Dim lCol As Long
Dim lStartRow As Long

Const lRows As Long = 10

With ActiveSheet
lStartRow = 2
For lCol = 3 To .UsedRange.Columns.Count
.Range(Cells(lStartRow, 2), _
Cells(lStartRow + lRows, 2)).Value = _
.Range(Cells(2, lCol), _
Cells(2 + lRows, lCol)).Value

lStartRow = lStartRow + lRows + 1
Next lCol

.Range(Cells(2, 3), Cells(lRows + 2, .UsedRange.Columns.Count)) _
.Delete Shift:=xlShiftToLeft
End With
End Sub
</code>

Hej Åsa
Tack så hemskt mycket. Det funkar som jag vill nu.

Hälsningar
Björn