VB Code Required for Selecting the below cell

[srivatsaj]

I will use the Ctrl + End for selectiing the last active cell. Then when I select the below cell its getting registered in VB with the actual cell reference.

How do i overcome with this?

Regards
Srivatsa J

 

[VoG]

Try like this

Sub NewLine()
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
End Sub

 

[srivatsaj]

Actually my requirement is,
If there is a data in 2 columns i.e. in Column A from A1 to A20 and in Column B from B1 to B20.

I would like to cut the data in B1 to B20 range and paste it in A21 and below.

Can you help me with this please?

Regards
Srivatsa J

 

[VoG]

Try

Sub ctpaste()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:B" & LR).Cut Destination:=Range("A" & LR + 1)
Application.CutCopyMode = False
End Sub