Copy and paste or autofill from first empty row to last row in previous column

[ek14497]

HI Guys,

I need big help to create a paste or autofill code.

I will try my best to explain the scenario as following:

In sheet "EXT" contains data in column A to X. New Data will be added daily continuing from the last empty row of the existing Data.

For Example existing data are in A1 to X5 (in Black) then new Data are copied from a another workbook sheet "EXT" range A2 until last row of W (The number of data is different each day in this example let's say A2 to W4) and pasted in A6. (A6 to W9 in Blue)

What I need help is in Column X.
I need a code to copy the Date in the first pasted cell in Column A (in this case A6) and Paste or Autofill the same date in the first empty row in Column X until the last row of Column W. (X6 to X9)

The next day new data will be added in A10 to W... Say W 15. The code will then copy the date in Cell A10 and paste/autofill in column X10 to X 15

	A	B	C	D	W	X
1	DATE	$	Units	Stock	Month	Creation date
2	6 Jan 17	44	3	5	January	6 Jan 17
3	7 Jan 17	43	3	5	January	6 Jan 17
4	8 Jan 17	90	1	5	January	6 Jan 17
5	7 Jan 17	50	3	1	January	7 Jan 17
6	8 Jan 17	20	3	4	January	8 Jan 17
7	8 Jan 17	22	4	5	January	8 Jan 17
8	9 Jan 17	30	4	5	January	8 Jan 17
9	9 Jan 17	55	7	5	January	8 Jan 17
10

<tbody>
</tbody>

Many thanks in advance for your help
Kanit

 

[AlphaFrog]

    [color=darkblue]Dim[/color] StartRow [color=darkblue]As[/color] [color=darkblue]Long[/color], LastRow [color=darkblue]As[/color] [color=darkblue]Long[/color]
    [color=darkblue]With[/color] Sheets("EXT")
        StartRow = .Range("X" & Rows.Count).End(xlUp).Row + 1
        LastRow = .Range("W" & Rows.Count).End(xlUp).Row
        .Range("X" & StartRow & ":X" & LastRow).Value = .Range("A" & StartRow).Value
    [color=darkblue]End[/color] [color=darkblue]With[/color]

 

[ek14497]

Hi AlphaFrog,

That's perfectly what I need.

Thanks a million

 

[AlphaFrog]

You're welcome. Thanks for the feedback.