Macro to copy and paste in next blank cell

[dan3721]

Hi

I am looking for a macro that will copy what ever is in cell C3 in to the next blank cell into column C from C20 downwards?

What i want is a list to be compiled of the differnt values entered into cell C3. Obviously the macro is run inbetween values changing.

Any help would be much appreciated.

Thanks

Dan

 

[VoG]

Try

Sub test()
Dim LR As Long
LR = WorksheetFunction.Max(20, Range("C" & Rows.Count).End(xlUp).Row + 1)
Range("C3").Copy Destination:=Range("C" & LR)
End Sub

 

[dan3721]

Brilliant. Works a treat.

Thanks

Dan

 

[Shoaibb]

Thanks for reply

Yeah I have tried this. I changed Range("C3") with selection.copy

but every time I have to copy three columns and run the macro.

Is there any other way to select the next three columns automatically. Means I do not want to select every time I run the macro.

Thanks again

 

[VoG]

Do you mean something like

Sub test()
Dim LR As Long
LR = WorksheetFunction.Max(20, Range("C" & Rows.Count).End(xlUp).Row + 1)
Range("C3").Resize(, 3).Copy Destination:=Range("C" & LR)
End Sub

 

[Shoaibb]

#VoG

Sorry It was not my post. My post is

"""Hi there,

I was writing a macro but need your help. I have hundred sets of three columns consisting 21 rows. I need to write a macro that can copy three columns one by one and paste them below first set of three columns. so that all hundred sets will be one set of three columns.
I have 12 worksheets in one workbook to do this. and then I need to combine all 12 worksheets in one. here 12 are the months of year.
I hope, I have explained my problem.

Thanks""

Please guide me how to do it.

 

[VoG]

Please continue in your original thread http://www.mrexcel.com/forum/excel-questions/787246-macro.html