[COLOR="Navy"]Sub[/COLOR] MG23Sep46
[COLOR="Navy"]Dim[/COLOR] Lst [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Dim[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Temp [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
Lst = Range("A" & Rows.Count).End(xlUp).Row
[COLOR="Navy"]For[/COLOR] n = 2 To Lst
[COLOR="Navy"]With[/COLOR] Range("A" & n)
[COLOR="Navy"]If[/COLOR] .Row = 2 Or .Row Mod 14 = 0 [COLOR="Navy"]Then[/COLOR]
Temp = .Offset(, 1).Value
.Offset(, 1).Value = .Value
.Value = Temp
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]Next[/COLOR] n
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]