Copy variable length column, except for last entry

[potga]

Following code works fine copying everything from A26 down to the first empty cell.
For example it might copy everything from A26:A50, where A51 is the first empty cell.
Want to change code so that it now copies A26:A49.

Sub Macro1()
    Range("A26", Cells(26, "A").End(xlDown)).copy
    Range("K26").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
  End Sub