copy and paste by using formula with help of VBA

[santoshloka]

i have some data in A5 TO H500 in photos sheet ,which i want to copy them in gallery sheet in same location,this code need some modifiaction

Sub INPUTDATA()
Worksheets("photos").Activate
Range("A5").Select
ActiveCell.FormulaR1C1 = "=IF('gallery'!RC="""","""",'gallery'!RC)"
Range("A5").Select
Selection.Copy
Range("B5:H5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A5:H5").Select
Selection.AutoFill Destination:=Range("A5:H500")
Range("A5:H500").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Font.Bold = False
Worksheets("photos").Activate
End Sub

 

[Beyond_avarice]

 Sheets("photos").Range("A5:H500").Value = "=IF('gallery'!RC="""","""",'gallery'!RC)"
 Sheets("gallery").Range("A5:H500").Value = Sheets("photos").Range("A5:H500").Value