Simple Loop for Copy and Paste

[RHONDAK72]

I use Excel 2013. I have values listed in Column A of Sheet 1. I want to copy each value from Column A and paste the value into Column B of Sheet 2 as long as the cell from Column A of Sheet 1 is not blank or null. (Once the cell is blank or null, then it has reached the end of the populated cells and so the process should end at that point.)

Example:
If cell A2 of Sheet 1 is not blank or null, then copy and paste the value to B2 of Sheet 2.
Next, loop to next cell and continue.
Else, if cell A2 of Sheet 1 is blank or null, then end the loop.

If cell A3 of Sheet 1 is not blank or null, then copy and paste the value to B3 of Sheet 2.
Next, loop to next cell and continue.
Else, if cell A3 of Sheet 1 is blank or null, then end the loop.

If cell A4 of Sheet 1 is not blank or null, then copy and based the value of B4 of Sheet 2.
Next, loop to next cell and continue.
Else, if cell A4 of Sheet 1 is blank or null, then end the loop.

And so on…

How would you code the loop this?

 

[My Aswer Is This]

Try this:

Sub Copy_Range()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row
Sheets(1).Activate
Dim Lastrowa As Long
Lastrowa = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    
    For i = 1 To Lastrow
        If Sheets(1).Cells(i, 1).Value <> "" Then Cells(i, 1).Copy Sheets(2).Cells(Lastrowa, 2): Lastrowa = Lastrowa + 1
    Next
Application.ScreenUpdating = True
End Sub