Zantor,

Test file worked great, but when I try to apply it to actual file
nothing happens. What I omitted to mention in my post was that the actual
spreadsheet did not start until C17, I have tried to "fiddle" with it but
cannot correctly set the start Range.

I apologise for not being precise enough in my initial post, is it
possible that you could again assist me.

with thanks

Bob


Sub CopyMyCells1()
Dim r, c As Integer
r = 1
c = 1

Do Until Cells(r, c) = ""

Do Until Cells(r, c) = ""
r = r + 1
Loop
Cells(r - 6, c).Select
Range(Cells(r - 6, c), Cells(r - 1, c + 3)).Copy
Cells(r, c).Select
ActiveSheet.Paste
Application.CutCopyMode = False
c = c + 4
r = 1
Loop

End Sub

"zantor" wrote in message
...
Hi Robert,

I have attached a file called Robert.xls. I have written a procedure
called CopyMyCells1 (You will find it in Module1).

Have a look and see if it is wat you want.

File Attached: http://www.exceltip.com/forum/attach...?postid=262886
(robert.xls)

------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/