paste data according to another row

[Rafael02]

Hey guys! I need a code that will find the last populated cells in row B, and paste some data in Row A mathing the last B row. Please, any help will be apreciated! thanks!!!

 

[VoG]

A bit unclear. Maybe

Sub btest()
Dim LR As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
Range("B" & LR).Copy Destination:=Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

 

[Rafael02]

range("A" & Rows.Count).End(xlUp).Offset(1).Select
ActiveCell = process_date
ActiveCell.Select

This selected data on this active cell i need to paste down in all blank rows in column A, until the end of column b populated cells!