Using a With statement copy down

[288enzo]

what can I change to make this work?

I'm trying to copy the data from D4 down to the last cell without having to "select" the sheet employees.

With Sheets("Employees")
    .Range ("D4")
    .Range(Selection, Selection.End(xlDown)).Copy
End With

Thank you

 

[Fluff]

What column determines the last row?

 

[288enzo]

What column determines the last row?

Technically D, but if I can't use the same column, I would use A.

I tried this, but it too didn't work

.Range("D4:D" & .Range("A" & Rows.Count).End(xlUp).Row).Select

 

[Fluff]

Ok, try

    .Range("D4:D" & .Range("A" & Rows.Count).End(xlUp).Row).FillDown

 

[288enzo]

I managed to get this to work

Sheets("Employees").Range("D4:D" & Sheets("Employees").Range("A" & Rows.Count).End(xlUp).Row).Copy Sheets("All3").Range("D10:D500")

 

[288enzo]

Ok, try

    .Range("D4:D" & .Range("A" & Rows.Count).End(xlUp).Row).FillDown

I was only trying to copy D4 to the last cell, but thank you.

 

[Fluff]

I got you, how about

With Sheets("Employees")
    .Range("D4:D" & .Range("A" & Rows.Count).End(xlUp).Row).Copy Sheets("All3").Range("D10")
End With

 

[288enzo]

I got you, how about

With Sheets("Employees")
    .Range("D4:D" & .Range("A" & Rows.Count).End(xlUp).Row).Copy Sheets("All3").Range("D10")
End With

That did the trick, thank you

 

[Fluff]

Glad to help & thanks for the feedback.