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

Posts
2
Registration date
Tuesday August 20, 2019
Status
Member
Last seen
August 21, 2019
- - Latest reply: ac3mark
Posts
12974
Registration date
Monday June 3, 2013
Status
Moderator
Last seen
September 10, 2019
- Aug 21, 2019 at 07:34 AM
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
See more 

2 replies

Best answer
Posts
12974
Registration date
Monday June 3, 2013
Status
Moderator
Last seen
September 10, 2019
1366
1
Thank you
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!

Say "Thank you" 1

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

CCM 6780 users have said thank you to us this month

Respond to ac3mark
Posts
2
Registration date
Tuesday August 20, 2019
Status
Member
Last seen
August 21, 2019
0
Thank you
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
12974
Registration date
Monday June 3, 2013
Status
Moderator
Last seen
September 10, 2019
1366 -
Sorry looking at the macro didnt help. It is the easiest way!
Respond to Ski4q