View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Adam Adam is offline
external usenet poster
 
Posts: 287
Default Select Range every 20 rows copy & paste special

Hi -

I am trying to build a macro that will select the same sized range G45:T48 then copy, paste special then go down 20 rows and do the same thing. Below is some code I started. I am not good with the Do While or Do Until type functions. Can someone point me in the right direction. I need this to go down to row 2000.

Range("G45:T48").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("G65:T68").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Thanks, Adam