converting columns C cells to a new row under A and B -macro

[osmanoca]

Hello dear mrexcel helpfull friends. i have three columns and many rows.

this is a dictionary data.
A is word
B is meaning
C is example sentence

i want to bring C example centence to under A and B. because when i copy to word file these columns, no space to be side by side. so i need to bring example column to under word and meanig. so i need a MACRO please.

example:
A B C
1-reading xwendin xwendin tiştekî xweş e.

İ Want to be so:

A B
1- reading xwendin

2- xwendin tiştekî xweş e.

 

[footoo]

Assuming no header row :

Dim lr#, rng As Range
lr = Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Range("C1:C" & lr)
Application.ScreenUpdating = False
rng.Copy Cells(lr + 1, "A")
[C1] = 1
[C1].AutoFill Destination:=rng, Type:=xlFillSeries
rng.Copy Cells(lr + 1, "C")
[A:C].Sort Key1:=[C1], Order1:=xlAscending, Header:=xlNo
[C:C].Delete
Application.ScreenUpdating = True

 

[osmanoca]

sorry it doesnt do anything. no name chen i click one run makro. so it doesnt see any macro. please check.

thanks

macro please..

 

[L. Howard]

Try it like this.

Howard

Sub Macro_Name_is _Needed()
Dim lr#, rng As Range

lr = Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Range("C1:C" & lr)

Application.ScreenUpdating = False

rng.Copy Cells(lr + 1, "A")
[C1] = 1
[C1].AutoFill Destination:=rng, Type:=xlFillSeries
rng.Copy Cells(lr + 1, "C")
[A:C].Sort Key1:=[C1], Order1:=xlAscending, Header:=xlNo
[C:C].Delete

Application.ScreenUpdating = True

End Sub

 

[osmanoca]

Thanks dear friend. it worked with a smalle change. i only changed first row as below:
Sub anyname()


this made new row. very good. and it copies C to below row in A. is possible to come to A and B together with merging them. because so i need to merge all new row A and B to be equal lenght with word and meaning(A and B)
?
İf you can do thanks....
again..

Try it like this.

Howard

Sub Macro_Name_is _Needed()
Dim lr#, rng As Range

lr = Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Range("C1:C" & lr)

Application.ScreenUpdating = False

rng.Copy Cells(lr + 1, "A")
[C1] = 1
[C1].AutoFill Destination:=rng, Type:=xlFillSeries
rng.Copy Cells(lr + 1, "C")
[A:C].Sort Key1:=[C1], Order1:=xlAscending, Header:=xlNo
[C:C].Delete

Application.ScreenUpdating = True

End Sub