Macro to fill cells from data in other cells

[tonywatsonhelp]

Hi Everyone,

I have a document that has a lot of defalt values for the cells,
now the document keeps changing so the cells keep moving around, and each time i have to go through the macro changing each line from "Range("E11").Value = "Department"" to "Range("E15").Value = "Department""

so ive decided to try do this differently,

Now in Column M i have the column letter i want the Default word in and in column O i have the default word
so for example instead of "Range("E11").Value = "Department"" I have moved the "E" to Cell "M11" and the word "Department" to cell "O11"

So now what i need is a macro to go down column O and for each cell with a word in it put the word into the Cell that is in column M

please help if you can

Thanks

Tony

i'll do a small example here:

Row / Column	D	E	F	G		M	N	O	Instructions
10		Department				E		Department	So the macro goes down Column O,
11									Each time it Finds a word,
12	Started					D		Started	It puts that word into the column in "M"
13			Helping			F		Helping
14
15		Area				E		Area
16			Area2			F		Area2
17
18				Cats		G		Cats

 

[onlyadrafter]

Hello,

like this?

Sub COPY_TO_COLUMN()
    For MY_ROWS = 10 To Range("O" & Rows.Count).End(xlUp).Row
        If Not IsEmpty(Range("O" & MY_ROWS)) Then
            Range(Range("M" & MY_ROWS).Value & MY_ROWS).Value = Range("O" & MY_ROWS).Value
        End If
    Next MY_ROWS
End Sub

 

[tonywatsonhelp]

Brilliant,
Exactly what i needed thank you very much
Tony