VBA Copy to copy formula one cell to the right

[DJWH]

Hi,

Could someone help me with the VBA code to copy or drag a formula one cell to the right? The cell will change each time as it's always the last cell in the row which contains data.

Hope I have explained it ok.

Any help appreciated

Thanks

 

[VoG]

Try

Sub test()
Dim LR As Long, LC As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
LC = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
Cells(LR, LC + 1).Formula = Cells(LR, LC).Formula
End Sub

 

[DJWH]

Thanks for the help, however this does not work. It seems to give me a blank cell, as it it's not copying anything over.

Any other ideas?

 

[VoG]

That worked for me. Maybe try

Sub test()
Dim LR As Long, LC As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
LC = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
Cells(LR, LC).Copy
Cells(LR, LC + 1).PasteSpecial Paste:=xlPasteFormulas
End Sub

 

[DJWH]

That works now. Thanks for your help!