Calculation using Macro ( MS Excel 2007 )

Good day..

I want to do simple calculation using Macro in MS Excel 2007..

All the data is in Sheet1 ( Which is 13a ), the calculation is in Sheet2 ( Which is work ) and the result of the calculation will come out in Sheet3 ( Which is result ).. Here is my coding..

Sub cmdOK_Click()
Dim xl_result, xl_13a, xl_work As Worksheet
Dim oper
Dim valueO


'Dim cellW As Range

'sheet13a = Sheets("work").Range(F6).value
'sheetR = Sheets("work").Range(G6).value
Set xl_work = Sheets("work")
Set xl_13a = Sheets("13a")
'xl_work.Select

'oper = xl_work.Range("C6").value
'valueO = xl_work.Range("D6").value
valueO = 2
'
'a = 5
'i = 5
'strjcn = "'"
'rw = 2
'CNT = 1
'Status = ""

   

'xl_result.Select
xl_result.Range("E6") = xl_13a.Range("E6").value + valueO

End Sub

Here is my attachment.. Maybe some of you can help me..


Thank you so much for your kind help..