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

Closed
Ski4q Posts 2 Registration date Tuesday August 20, 2019 Status Member Last seen August 21, 2019 - Aug 20, 2019 at 05:28 AM
 Blocked Profile - 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

2 replies

Blocked Profile
Aug 20, 2019 at 07:17 AM
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
Ski4q Posts 2 Registration date Tuesday August 20, 2019 Status Member Last seen August 21, 2019
Aug 21, 2019 at 03:00 AM
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
0
Sorry looking at the macro didnt help. It is the easiest way!
0