Copy from one cell and paste to another sheet based on length of another column

Report
Posts
2
Registration date
Tuesday August 20, 2019
Status
Member
Last seen
August 21, 2019
-
ac3mark
Posts
13029
Registration date
Monday June 3, 2013
Status
Member
Last seen
October 11, 2019
-
Hi I am using the code below to copy and paste from one column to another based on cells containing data in column A, what I need to do it copy data from a single cell (J2) in sheet1 and paste into next empty cell in column A on sheet 2 based length column B (cells containing data)

Sub FillDown()
Dim LastRow As Long

With ActiveSheet

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("D2").AutoFill .Range("D2").Resize(LastRow)
End With
End Sub

2 replies

Posts
13029
Registration date
Monday June 3, 2013
Status
Member
Last seen
October 11, 2019
1,644
Record a macro! Edit the macro to see what steps the macro takes to accomplish the task. Modify the macro to fit your dynamic needs!
1
Thank you

Glad we were able to help! Love us? Write us a review! Rate CCM

CCM 5401 users have said thank you to us this month

Posts
2
Registration date
Tuesday August 20, 2019
Status
Member
Last seen
August 21, 2019

Thanks Mark, I did try doing it with a macro but was getting nowhere so tried the code above which did part of what I was after but I was unable to target the single cell with the data that I wanted to copy down
ac3mark
Posts
13029
Registration date
Monday June 3, 2013
Status
Member
Last seen
October 11, 2019
1,644
Sorry looking at the macro didnt help. It is the easiest way!