Thread: Rotate Current Record to last

I have a database with a table with 1 to 10 records. I want to be able to open the form view and get the first record. I then want to be able to rotate the current record so it will be the last record in the table/form. Is there an easy macro to do this?

Rodeoclown,

Something like this?

Sub RotateValuesMacro_for_Rodeoclown()
    
    Const DataCol As String = "A"
    Const StartRow As Long = 2
    
    Dim arrData() As Variant: arrData = Range(DataCol & StartRow + 1, Cells(Rows.Count, DataCol).End(xlUp)).Value
    Range(DataCol & StartRow).Offset(UBound(arrData, 1), 0).Value = Range(DataCol & StartRow).Value
    Range(DataCol & StartRow).Resize(UBound(arrData, 1), 1).Value = arrData
    
End Sub

Hope that helps,
~tigeravatar