Editable Text for selection
​
Sub Select_range()
'select All rows in column A
'1. selection from top to end
Range("A1", Range("A1").End(xlDown)).Select
'2. Selection from bottum to top, you can use this
'method if you have any blank cell in range
Range("A1000000").End(xlUp).Select
Range(Selection, "A1").Select
'3 create dynamic rows no then create range
'Count of rows in your Data Table
T = Range("A1").CurrentRegion.Rows.Count
'Select Dynamic Range
Range("A1:A" & T).Select
End Sub
Editable Text for selection
​
Sub Range_Selection()
' Select All range
Range("A1").CurrentRegion.Select
' Select Header only
Range("A1").CurrentRegion.Resize(1).Select
' Select Values only
'Get numbers of total rows
t = Range("A1").CurrentRegion.Rows.Count - 1
'select dynamic range values only
Range("A1").CurrentRegion.Offset(1).Resize(t).Select
End Sub
Editable Text for selection
Sub Range_Selection()
'Select All Copy
Range("A1").CurrentRegion.Select
' Past data in a fix destination
Range("A1").PasteSpecial xlPasteAll
' Past data in next to last row
Range("A1").End(xlDown).Offset(1).PasteSpecial xlPasteAll
End Sub