VB help Please... re pasting ranges of data

[DebbyG]

I need to copy & paste (transpose paste) data from one spreadsheet to another.

I have figured out the below, but I have to freetype the Range to paste from and the Range to paste to (i.e. B534:B571) & (A17)

Can anyone let me have a formula to increase each range by 37 rows and paste into the next blank row on the new spreadsheet.

I need to go up to range B19192:B19229 (A508) - hence needing your help please.

Many thanks


ray:

Range("B534:B571").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ActivateNext
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Range("A17").Select
ActiveWindow.ActivateNext


Range("B572:B609").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ActivateNext
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Range("A18").Select
ActiveWindow.ActivateNext

Range("B610:B647").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ActivateNext
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Range("A19").Select
ActiveWindow.ActivateNext

 

[Von Pookie]

Please continue in your original thread:
http://www.mrexcel.com/board2/viewtopic.php?t=129012