Add relative formula to next column

Hi all,

The recorder couldn't help me, so hopefully you can:

I want to make a macro that drags my formula* over to the next cell (in the same row) which doesn't contain the formula, but has an absolute value in it. As a result the absolute value will be overwritten. The absolute value in the cell next to the changed cell, should be unchanged until I run the macro again.

* I would like this formula be "relative" so when you drag it the formule "=A23" will be "=B23" in the next cell etc.
** I added a simplified example.

*Solved thanks to Mehmet*

right click on your sheet name at the bottom of excel and select view code

A Module will open

paste this code and close the module. The macro will run when you right click on row 1.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Count > 1 Or Target.Row > 1 Or LCase(Left(Target.Value, 4)) <> "week" Then Exit Sub
On Error GoTo Quit
Set Z = Rows(3).Find(0, LookIn:=xlValues, Lookat:=xlWhole)
t = Z.Address
Z.Formula = "='Data entry'!" & Z.Address

Cancel = True
Quit:
End Sub

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).Formula = "='Actuals 2016'!" & Cells(51, Col).Address
End Sub

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