ok, here's what i got.

this subscript basically takes data from one sheet and pastes it t
another sheet.
However, it keeps overwriting the first block in cell in the new shee
"A1" How do i get it to drop down after the first loop to b1...the
c1...then d1 etc. etc.


Thanks...here is my code..

V/R

Jody


Sub transpose()
'
'
'Loop for Transposing Pivot Table to create spreadsheet for VLOOKUP
ActiveSheet.Select
Range("A5").Select

Do While ActiveCell.Value < ""
Selection.Copy
Sheets("Sheet3").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Sheet4").Select

ActiveCell.Offset(0, 2).Select

Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(11, 0)).Select
Selection.Copy
Sheets("Sheet3").Select

Range("a1").Select 'I know this is where my code is?

ActiveCell.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
SkipBlanks:=False _
, transpose:=True
Sheets("Sheet4").Select
ActiveCell.Offset(0, 1).Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(11, 0)).Select
Selection.Copy
Sheets("Sheet3").Select
ActiveCell.Offset(0, 12).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
SkipBlanks:=False _
, transpose:=True
Sheets("Sheet4").Select
ActiveCell.Offset(0, 1).Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(11, 0)).Select
Selection.Copy
Sheets("Sheet3").Select
ActiveCell.Offset(0, 12).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
SkipBlanks:=False _
, transpose:=True
ActiveCell.Select
ActiveCell.Offset(1, -25).Select
Sheets("Sheet4").Select
ActiveCell.Offset(12, -4).Select
Loo

--
Message posted from http://www.ExcelForum.com