Add relative formula to next column

Sub Macro()
'Find Last used Column in Row 58
LC = Cells(58, Columns.Count).End(xlToLeft).Column

'Find Last Column with Actual in Formula
For Col = LC To 1 Step -1
T = Cells(58, Col).Formula
If InStr(T, "Actual") > 0 Then Exit For
Next

'Put Formula in the next column
Cells(58, Col + 1).Select
Selection.Formula = "='Actuals 2016'!" & Cells(51, Col).Address
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub