To copy column until the last data

to copy column until the last data

Sub copycolumn()



     Sheets("Input Sheet").Activate
     ''Range("ay13", Range("ay13").End(xlDown)).Copy Destination:=Sheets("Payroll").Range("b8")
    ''Application.CutCopyMode = False
   
   
 
    Range("ay13:bs13", Range("ay13:bs13").End(xlDown)).Copy
    Sheets("payroll").Range("A8").PasteSpecial Paste:=xlPasteValues