View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
tbmarlie tbmarlie is offline
external usenet poster
 
Posts: 26
Default just trying to copy 6 rows to the right

On Jul 27, 1:26*pm, tbmarlie wrote:
On Jul 27, 1:14*pm, tbmarlie wrote:

I know this is a basic question, but I haven't used excel vb in years
so I'm trying to get some of the dust off.


I have the following vb code to copy a footer cell (which was used to
sum the contents of the column above it) and paste it to the 6 cells
to the right.
Range("E154").Select
* * Selection.Copy
* * Range("F154:L154").Select
* * ActiveSheet.Paste


I just want to make this a relative formula.


After a few of these, I'll start to get the swing of things again.


I guess, before this, I need to figure out how to get to cell E154
which will also be changing because the number of rows will be
changing. *If I start at Cell E3 and then put in code to get to the
very last cell (in this case, it just happens to be E154), I'm
assuming it would be something like the following:

Dim Rng As Range
* * Set Rng = Range("E3").End(xlDown)

But, once I have this range, I'm not sure of the code to actually get
me there using this range


Oh, and the title of this s/b copying 6 cells to the right, not
copying 6 rows, sorry