Hello everyone,
I have this code
Sub CopyData()
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "Lottery"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to...