Copy Paste the Specific Cell value repeatedly in column till blank rows 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
Do not duplicate - this case closed.
Use Code -tags.

Continue from this:
https://chandoo.org/forum/threads/code-to-find-blank-or-used-cell-after-column-header.40997/