Paste the cell value repeatedly to another column till blank row cell found

[AmitSingh]

Hi All,

Need urgent help to copy paste the cell value to another sheet of column till it finds blank rows.

I have attached the file with 3 sheet tab, Student sheet is source tab, Marks sheets is output tab and OutputRequired sheet tab is the desired output which i want.

Below is the code which i have tried but it paste only paste the value in single time.

Code:-
Sub pastevalue()

Dim r As Range

ThisWorkbook.Worksheets("Student").Activate
Set r = Range("A2")
Range("A2").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Worksheets("Marks").Activate
Range("A2").Select
Do While r.Value <> ""
Range("A2").Value = r.Value
Set r = r.Offset(1)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Loop

End Sub

Any help will be much appreciated. Thanks in advance.

 

[vletm]

AmitSingh
As written in:
https://chandoo.org/forum/threads/c...y-in-column-till-blank-rows-cell-found.41001/
Which were already duplicated!
... and about original case
... You've written 'yes, checked the file and it is working.'
Do it work as You've asked and opened same case many times after that?
>> Answer to the original case <<