Hello,
Using the code:
Sub Rotate_Rota()
' cn = cell number
' fc = first cell
' lc = last cell
Dim cn As Integer, fc As Integer, lc As Integer
cn = 1
Do
cn = cn + 1
If Cells(cn, 1).Value = "fc" Then
Do
cn = cn + 1
If Cells(cn, 1).Value <> "lc" Then...