Sub AddLine()
'
' AddLine Macro
' Adds a line with same date under chosen line
'
' Keyboard Shortcut: Ctrl+l
'
Sub Paste_OneRow()

'Copy and Paste Row
Range("1:1").Copy Range("2:2")


'Cut and Paste Row
Range("1:1").Cut Range("2:2")

End Sub