iomighty

Here is somethig that might help.

Sub copy_cells()
Application.ScreenUpdating = False
Dim rng As Range
Dim i As Long
Dim qty, price
Dim mydate As Date
Dim lastrow
Set rng = Worksheets("sheet1").Cells(1, 1).CurrentRegion
For i = 1 To rng.Rows.Count
qty = rng(i, 1).Value
price = rng(i, 2).Value
mydate = rng(i, 3).Value
Worksheets("sheet2").Activate
lastrow = Range("a65536").End(xlUp).Offset(1, 0).Select
With ActiveCell
.Value = qty
.Offset(1, 0).Value = qty
.Offset(0, 1).Value = price
.Offset(1, 1).Value = price
.Offset(0, 2).Value = mydate
.Offset(1, 2).Value = mydate
End With
Next i
End Sub

Charle

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