i have this code
Sub taskstime2()
'
' taskstime2 Macro
'
' Keyboard Shortcut: Ctrl+t
'
Dim myCells1 As Range
Set myCells1 = Selection
Windows("5. schdule.xlsm").Activate
myCells1.Copy Sheets("1. schdule").Range("hm" & Rows.Count).End(xlUp).Offset(1, 0)
End Sub
it takes...