Sub Copy_The_Data_With_In_Coding_Workbook()

'Declare activeworkbook
Dim wkb As Workbook
Set wkb = ActiveWorkbook

'Define Source Range
Dim SrcRng As Range
Set SrcRng = Application.InputBox("Select The Source Range To Copy", "www.Tricks12345.com", Type:=8)

'Define Destination Range
Dim DestRng As Range
Set DestRng = Application.InputBox("Select The Destination Range To Paste", "www.Tricks12345.com", Type:=8)

SrcRng.Copy DestRng

End Sub