How to copy the data from sheet1 and paste the data to sheet2 each first empty row of each row

How to copy the data from sheet1 & paste the data to sheet2 each first empty row of each row

Requirement:

In the attached file, the user has highlighted a column yellow and wants to work on the data in that column.

The user wants to copy that data and paste that data to sheet2 each first empty row of each row.

See the Sample File in the link below:

https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/1203689-copy-the-data-from-sheet1-paste-the-data-to-sheet2-each-first-empty-row-of-each-row%C2%A0

Solution:

Code:

Sub CopyData()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Sheets("Sheet1").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim lColumn As Long
    Dim mark As Range
    For Each mark In Sheets("Sheet1").Range("C2:C" & LastRow)
        lColumn = Sheets("Sheet2").Cells(mark.Row, Columns.Count).End(xlToLeft).Column + 1
        Sheets("Sheet2").Cells(mark.Row, lColumn) = mark
    Next mark
    Application.ScreenUpdating = True
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by Mumps.