top of page
Selection One rows.jpg

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

 

Range 2.jpg

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

image.png

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

bottom of page