Макрос автозаполнения Excel не применяется к столбцу Y, но другие столбцы это делают

Question

Я столкнулся с проблемой, которую, я надеюсь, кто-то может решить!

Мой код:

Dim lastrow1 As Long
lastrow1 = Range("R" & Rows.Count).End(xlUp).Row
Dim lastrow2 As Long
lastrow2 = Range("T" & Rows.Count).End(xlUp).Row
Dim lastrow3 As Long
lastrow3 = Range("V" & Rows.Count).End(xlUp).Row
Dim lastrow4 As Long
lastrow4 = Range("X" & Rows.Count).End(xlUp).Row

Columns("S:S").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove   

Columns("U:U").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove   

Columns("W:W").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove   

Columns("Y:Y").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 

Range("S1").Select
ActiveCell.FormulaR1C1 = "CreateValue"
Range("S2").Select
ActiveCell.FormulaR1C1 = "=VALUE(RC[-1])"
Range("S2").Select
Selection.AutoFill Destination:=Range("S2:S" & lastrow1)
Range("S2:S" & lastrow1).Select

Range("U1").Select
ActiveCell.FormulaR1C1 = "PublishValue"
Range("U2").Select
ActiveCell.FormulaR1C1 = "=VALUE(RC[-1])"
Range("U2").Select
Selection.AutoFill Destination:=Range("U2:U" & lastrow2)
Range("U2:U" & lastrow2).Select

Range("W1").Select
ActiveCell.FormulaR1C1 = "CloseValue"

Range("W2").Select
ActiveCell.FormulaR1C1 = "=VALUE(RC[-1])"
Range("W2").Select
Selection.AutoFill Destination:=Range("W2:W" & lastrow3)
Range("W2:W" & lastrow3).Select

Range("Y1").Select

ActiveCell.FormulaR1C1 = "AwardValue"

Range("Y2").Select
ActiveCell.FormulaR1C1 = "=VALUE(RC[-1])"
Range("Y2").Select
Selection.AutoFill Destination:=Range("Y2:Y" & lastrow4)
Range("Y2:Y" & lastrow4).Select

, что происходит, если автозаполнение работает для столбца SUW, но не для Y. В столбце Y заголовок заменяется формулой =value() и реплицируется толькодля Y2.т. е. Y3 пусто!

Цените любую помощь, пожалуйста

Спасибо!