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(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

' Select Header only

' Select Values only

'Get numbers of total rows
t = Range("A1").CurrentRegion.Rows.Count - 1

'select dynamic range values only

End Sub


Editable Text for selection

Sub Range_Selection()
'Select All Copy

' 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