Moving the second row to the last row
 

Hi,

I would like to create a macro that moves the second row to the last row in
the worksheet. The worksheet varies in the number of rows and I can not work
out if this is possible or how to do it.

Moving the second row to the last row
 

Sub Macro1()
lastrow = Range("A" & Rows.Count).End(xlUp).Row
Rows("2:2").Cut
Rows(lastrow + 1).Insert Shift:=xlDown
End Sub

Regards,
Stefi

€žMax2073€� ezt Ã*rta:

Hi,

I would like to create a macro that moves the second row to the last row in
the worksheet. The worksheet varies in the number of rows and I can not work
out if this is possible or how to do it.

Moving the second row to the last row
 

Forgot to mention that the cell in column A, last row must not be empty!
Stefi


€žStefi€� ezt Ã*rta:

Sub Macro1()
lastrow = Range("A" & Rows.Count).End(xlUp).Row
Rows("2:2").Cut
Rows(lastrow + 1).Insert Shift:=xlDown
End Sub

Regards,
Stefi

€žMax2073€� ezt Ã*rta:

Hi,

I would like to create a macro that moves the second row to the last row in
the worksheet. The worksheet varies in the number of rows and I can not work
out if this is possible or how to do it.

Moving the second row to the last row
 

If you are only looking at moving Row 2 to the last position (without
shifting cells) then try the below code.

Sub Macro()
Rows(2).Cut Rows(Range("A" & Rows.Count).End(xlUp).Row + 1)
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Max2073" wrote:

Hi,

I would like to create a macro that moves the second row to the last row in
the worksheet. The worksheet varies in the number of rows and I can not work
out if this is possible or how to do it.

Moving the second row to the last row
 

If column A data is not the last row; then try the below macro

Sub Macro1()
Dim lngLastRow As Long

lngLastRow = ActiveSheet.Cells.Find(What:="*", _
SearchDirection:=xlPrevious, SearchOrder:=xlRows).Row
'to move to last row
Rows(2).Cut Rows(lngLastRow + 1)

'OR - to move to last+1 row and shift
'Rows(2).Cut
'Rows(lngLastRow + 1).Insert Shift:=xlDown
End Sub


If this post helps click Yes
---------------
Jacob Skaria


"Max2073" wrote:

Hi,

I would like to create a macro that moves the second row to the last row in
the worksheet. The worksheet varies in the number of rows and I can not work
out if this is possible or how to do it.