Select Copy and Paste Data
Posted: Tue Jun 09, 2020 3:40 am
Sub Select_copy_paste_Data()
'
' First select data using Ctrl Down and Ctrl Right keys
'
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Range("E3").Select
ActiveSheet.Paste
End Sub
'
' First select data using Ctrl Down and Ctrl Right keys
'
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Range("E3").Select
ActiveSheet.Paste
End Sub