Macro for moving all rows down and the bottom row to the top and vice versa

[Squiggles17]

For example, if cells A1:C28 have data in them, then I want to move cells A1:C27 down one row and move cells A28:C28 back up to the top. I also want a separate macro that will move cells A2:C28 up one row and move cells A1:C1 down to the bottom.

I need it to work for any amount of rows I have. So if I had 195 rows it would do the same thing.
If there is data in columns A and B then that would count as the bottom row. Column C does not need to have anything in it.

Any help is appreciated, Thanks.

 

[msn1712]

1st code:

Sub DT()

Rows(1).Select
Selection.Insert Shift:=xlDown
Range("A65536").End(xlUp).EntireRow.Select
Selection.Cut
Rows(1).Select
ActiveSheet.Paste
Range("A1").Select

End Sub

2nd code:

Sub TD()

Rows(1).Select
Selection.Cut
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Rows(1).Select
Selection.Delete Shift:=xlUp
Range("A1").Select

End Sub

Hope this helps.

Regards,
Mohan