Hello again everyone. I am hoping there is a simple solution to this. I want to convert this code to a single line if at all possible. I have several variations on this in the same macro (different sources and destinations) I am wondering how I would be able to combine these lines to something similar to the copy statement followed by the destination on the same line.

This is the code I am trying to combine as I said I have several blocks like this. It works fine but I am trying to reduce lines.

Sheets("Shelf Life Tracking").Select
        Range(Range("B5"), Range("B5").End(xlDown)).Copy
        Sheets("Future Effective").Select
        Cells(Rows.Count, "B").End(xlUp).Offset(1).Select
        ActiveSheet.Paste
Thanks again.