View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
willwonka[_4_] willwonka[_4_] is offline
external usenet poster
 
Posts: 10
Default Copying Value to Range

Yet another seemingly easy task, that I can't quite get. Here we go.

I have a process that copes some data to a column and then copies a
parent to the next column. I would like to fill that parent to all of
the rows.

So after process, it looks like this:

JC4100 JC4100
JC41003002
JC41003003
JC41001040
JC41009998
JC41016041
JC4100H

I want it to look like this:

JC4100 JC4100
JC41003002 JC4100
JC41003003 JC4100
JC41001040 JC4100
JC41009998 JC4100
JC41016041 JC4100
JC4100H JC4100

Doing a simple Macro Record gets me this:

Selection.Copy
Range("F134:G134").Select
Range("G134").Activate
Range(Selection, Selection.End(xlDown)).Select
Range("G134:G140").Select
ActiveSheet.Paste

My task is to make that sub more relative and more compact (or
course). Because more things will be copied to the bottom of this
list after this is filled in.

Thanks.